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IDENTIFICATION 

PRODUCT CODE: AC-1437A-MC 

PRODUCT NAME: CNDUQAO DUV11 OFLNE LGC TSTS 
PRODUCT DATE: DEC , 1982 

MAINTAINER: DIAGNOSTIC SERVICES/ISS 
AUTHOR: J.CARMODY 


COPYRIGHT (C) 1982,1983 BY DIGITAL EQUIPMENT CORPORATION 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILTY OF SOFTWARE 
. THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 





REM * 


-REM * 


—— 


SEQ 0001 


be 
CNDUQS 
1. 
2. 
2.2 
5. 
4.1 
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REM * 
GENERAL DESCRIPTION 
THIS DIAGNOSTIC CAN CHAIN 16 DUV11°S. THIS MEANS THAT 
had ge CAN BE SEQUENTIALLY EXERCISED. THE DIAGNOSTIC 
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE, 
CONTINUES EXERCISING ALL DEVICES IN THIS FASHION UNTIL 


THE DUV11 OFFLINE LOGIC TESTS VERIFY THAT ALL REGISTERS EXIST 
eAND ALL RESPECTIVE ht CAN BE MASTER CLEARED, READ, 

WRITTEN AND/OR READ/WRITTEN 

REQUIREMENTS 

PDP=11/21 COMPUTER (LSI) 

DUV11 SYNCRONOUS/ISOCRONOUS OPTION 

ONE CONSOLE TELETYPE OR EQUIVALENT 


STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 


LOADING PROCEDURE 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED. 


STARTING ADDRESS 
FOR are 


4K 0175 

8k 37500 
12K 57500 
16K 077500 
20k 117500 
24k 137500 
28K 157500 


STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 


NOTE: ALL SWITCHES RESIDE INTERNAL TO THE CPU _AT ADDRESS 
176. THESE MAY 136. SET VIA THE CONSOLE TTY BY DIRECTLY 
MODIFYING LOC. 1 

NOTE: RUNNING UNDER APT~1 


THERE IS 
0 
"p 


SER SWITCH REGISTER 
BE BLE 
ieee 
S 
A 


y aa H AVAILIBILITY OF THE 
A 0 = CONNECTOR 


1 
IN ORDER 
CTOR, ONE BIT 

BIT 0 IN SUSWR REFLECTS T 
PRESENT, A 1 = CONNEC TORN 


SEQ 0002 


. 1 
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THE USER og THE CONTENTS OF THIS LOCATION 


WHEN BUILDING THE E TABLE, BY ANSWERING THE 
PROMPT ““SWITCH 2°°. 


4.1.1 AFTER PROGRAM LOAD (INITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


sw00=1 
4.1.3 TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART 
Y IN SINGLE DEVICE TESTS) 
$w01=1 
4.1.4 TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 
SW14=1 . 
NOTE1: IN GENERAL SWO1 WILL BE USED WHEN SW14=1 IS USED 
NOTE2: WITHOUT SWO1=1 ‘LOCK ON TEST’’ WILL DEFAULT TO TEST 1 
4.2 STARTING ADDRESS 
THE STARTING ADDRESS FOR ALL TESTS IS 000200 
THt PETARTING ADDRESS FOR ALL TESTS IS 000200 
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
THE STARIZNG ADDRESS TO LOCK ON TEST IS 000200 
4.3 PkhOIGRAM AND/OR OPERATOR ACTION 
4.3.1 INITIAL PROGRAM START 
4.3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
4.3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 
4.3.1.3 TYPE 200G. 
4.3.1.4 PROGRAM WILL START. 
REM * 
4.3.1.5 THE PROGRAM WILL TYPE ‘DUV11 CZDUQ-C TAPE A’* (ONCE ONLY) 
REM * 
4.3.1.6 THE PROGRAM WILL TYPE ‘R'’ TO INDICATE THAT IT IS ABOUT 
TO START TESTING AND THEN TESTING WILL BEGIN 
4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 


4.3.2.1 THE PROGRAM WILL TYPE ‘'R’’ AND WILL COMMENCE TESTING 


4.3.3 PROGRAM RESTART WITH SwO0=1 
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4.3.3.1 SET SWITCH REGISTER (LOC. 176) TO A 000001. 

4.3.3.2 TYPE 2006. 

4.3.3.3 PROGRAM WILL START. 


4.3.3.4 THE PROGRAM WILL TYPE ** 1ST DEVICE: RECEIVER CONTROL REGISTER 
ADDRESS"* AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.5 TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED 
FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED , THE PROGRAM WILL TYPE ‘°'?°° 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 


4.3.3.6 THE PROGRAM WILL TYPE ‘VECTOR ADDRESS~"' AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.7 TYPE_IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 
IF AN INCORRECT ADDRESS IS TYPED My PROGRAM WILL TYPE °'?°* 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6 


4.3.3.8 THE PROGRAM WILi TYPE “‘ARE YOU RUNNING MULTIPLE DEVICES ?°° 
(Y OR N)="" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.9 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE ‘'?** 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.8 


IF A ‘'NO’* ANSWER IS GIVEN: JUMP TO SECTION 4.3.3.12 
IF A “‘YES’’ ANSWER IS GIVEN: THE NEXT QUESTION IS ASKED 


4.3.3.10 THE PROGRAM WILL TYPE ‘LAST DEVICE:RECEIVER CONTROL 
REGISTER ADDRESS~"* AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.11 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 


ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED ya Progran WILL TYPE °*?** 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.10 
NOTE:ALL ADDRESSES SHALL BE CONTIGUOUS 


4.3.3.11.1 IF AN “‘OUT OF RANGE** ADDRESS IS TYPED 
MORE THAN 16 (10) DEVICES AWAY (UPWARDS).....THE 
PROGRAM WILL TYPE "OUT OF RANGE:RETYEE LAST DEVICE RXCSR ADDRESS~"* 





| F 1 
c - 


NDUQ=A0 MACY11 go 14=DEC-82 09:56 PAGE 57-4 
CNDUQ3.M11 10=DEC=82 13:4 SEQ 0005 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD | 
4.3.3.11.2 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL 


REGISTER ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN> 


IF AN_INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE °'?"' 
AND WILL REPEAT THE MESSAGE OF 4.3.3.11.1 


IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE one Fe IS TYPED. ..cccccces 
- +» SCHOOLS eccsescees THERE IS NO PROTECTION FOR THIS. 
THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 
i DEVICE ADDRESS).THE SAME APPLIES TO IDENTICAL ADDRESSES 
YPED FOR FIRST AND LAST DEVICE. 
OBSERVE LOCATION @ ACTREG: SEE SECTION 7.2 


4.3.3.12 THE PROGRAM | ne ays | *# OF SYNC a 
SELECTED (1 OR 2)- WAIT FOR AN INPUT FROM THE TELETYPE 
KEYBOARD. REFER TO MANUAL FOR PROPER SWITCH SETTINGS OF 
SWITCH E55=4. 


4.3.3.13 TYPE IN THE APPROPRIATE ANSWER °"l°' OR ‘'2°* FOLLOWED 
ey Pos Pas RETURN>.(NOTE:ALL MULTIPLE DEVICES MUST 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘*?°° 
AND WILL REPEAT THE MESSAGE OF 4.3.3.12 


4.3.3.14 THE PROGRAM WILL TYPE *’ IS SEC XMIT SWITCH E55-2 ON? (Y OR N)~-"' 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.15 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>.(NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,THE — WILL TYPE °°?** 
AND WILL REPEAT THE MESSAGE OF 4.3.3.14 


4.3.3.16 THE PROGRAM WILL TYPE "*IS SEC REC SWITCH E55-3 ON? 
(Y OR N)-"" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.17 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED ,THE cyeenee WILL TYPE °*?°* 
AND WILL REPEAT THE MESSAGE OF 4.3.3.16 


4.3.3.18 THE PROGRAM WILL TYPE ‘*IS OPT CLR ENABLE SWITCH 
E55-1 ON? (Y OR N)="* AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.19 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


G 1 
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BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 





IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘*?°° 
AND WILL REPEAT THE MESSAGE OF 4.3.5.18 


4.3.3.20 THE PROGRAM WILL TYPE ‘ARE YOU RUNNING IN MAINT. 
MODE EXTERNAL ? AND ss 2+2 DO YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON ? (Y OR N)="" AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


| 

4.3.3.21 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 
A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE °'?"' | 
AND WILL REPEAT THE MESSAGE OF 4.3.3.20 


i 
4.3.3.22 THE PROGRAM WILL TYPE ‘'R’* TO INDICATE — IT | 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


4.3.4 PROGRAM RESTART WITH SW01=1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
eoelT WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 


IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED,LOAD 000200, 
aoe SELECT SWOO=1 AND ANSWER ''NO’’ TO THE MULTIPLE DEVICE QUESTION 


| 
dl ° 
4.3.4.1 SET SWO1=1 IN SWITCH REG (LOC. 176) | 
4.3.4.2 TYPE 200G. 
4.3.4.3 PROGRAM WILL START. 


4.3.4.4 THE PROGRAM WILL TYPE ‘‘TEST PC~"* AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 


4.3.4.5 TYPE_IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 


4.3.4.6 THE PROGRAM WILL TYPE ‘'R*’ TO INDICATE THAT IT HAS STARTED 
TESTING AT THE SELECTED TEST 


NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE IS USED 
SINCE THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS 
THAT IS IN THE MIDDLE OF A TEST ) 
4.3.5 PROGRAM RESTART WITH SW14 =1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
SEE NOTE IN 4.3.4 FOR MORE DETAILS 
4.3.5.1 SET SW14=1 IN SWITCH REG. (LOC. 176) 


4.3.5.2 TYPE 200G. 


a 
H 1 

| cNDUg=AO MACY11 5041066) 14=DEC-82 09:56 PAGE 57-6 | 

CNDUQ3.M11 10=DEC=82 13:46 SEQ 0007 — 


4.3.5.3 PROGRAM WILL START. 


4.3.5.4 THE PROGRAM WILL TYPE ‘LOCK ON SELECTED TEST ? (Y OR N)~"" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES OR Nu FOLLOWED BY A 
<CARRIAGE RETURN> 


IF A_NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED 
AND THE PROGRAM WILL TYPE “'R’’ TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 


4.3.5.6 IF A_YES ANSWER WAS GIVEN: THE PROGRAM WILL ACT AS FOLLOWS... 
THE PROGRAM WILL TYPE ‘R’’ TO INDICATE THAT IT HAS STARTED 
ape if ae 1 AND WILL REMAIN IN TEST 1 UNTIL a 


TYPE IF Sw01 = 
WILL PERFORM AS _IN SECTION 4.3.4 ALLOWING ONE TO FREEZE. 
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 


5. OPERATING PROCEDURE 
5.1 OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC. 176). 
SW15 =1 HALT ON ERROR 
SW14 =1 vo ON CURRENT TEST 
Sw13 =1 INHIBIT ireke TYPEOUT 
SW11 = INHIBIT _ITERA 
Sw10 = ESCAPE TO =a TEST ON ERROR 
SWO9 = LOOP ON ERROR 
Sw01 = RESTART PROGRAM AT SELECTED TEST 
Sw00 = eactece VECTOR AND CONTROL REGISTER ADRESSES 
AMETERS AFTER A_PROGRAM RESTART 


&PAR 
TO INHIBIT “END OF PASS’ TYPEOUT = TURN TELETYPE OFF 
6. ERRORS 


6.1 ERROR HALTS (UNDER LSI ALL HALT ERRORS RETURN CONTROL TO O.D.T.) 
THERE ARE FOUR DISTINCT ERROR TYPEOUTS 


6.1.1  PC+2 = ERROR PC 
WHERE PC +2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 


REFER TO THE ABOVE “‘HLT’’ IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


6.1.2 PC + A eines ERROR PC 
REGI EXPECTED ACTUAL 
TKK vYYYYYY 222222 
WHERE 1XXXXX IS THE ADDRESS OF THE FAILING DEVICE REGISTER 


WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 
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WHERE 222222 1S THE ACTUAL CONTENTS OF THAT REGISTER 
6.1.3 PC +2 = RECEIVER ERROR PC 
REG .e TER EXPECTED ACTUAL 
1XX YYYYYY 222222 
WHERE 1XXXXX IS THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF THAT REGISTER 
WHERE 2222722 IS THE ACTUAL DATA CONTENTS OF THAT REGISTER 
6.1.4 PC ite A epemtndy ERROR PC 
REGI EXPECTED ACTUAL 
TKRKXK YYYYYY 222222 
WHERE 1XXXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCST) REGISTER 
WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 
WHERE 222222 IS THE ACTUAL CONTENTS OF THAT REGISTER 


6.1.5 ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


6.2 ERROR RECOVERY 


6.2.1 SwiS =0 
IF THE PROGRAM IS RUN WITH SW15 =0 ,NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE TESTING 


6.2.2 vt =1 

IF THE PROGRAM IS RUN WITH SW15 =1 ,TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED PRESS THE PROCESSOR 
CONSOLE “*CONTINUE SWITCH’ 


NOTE: THE PC + 2 OF THE “HLT’’ WILL BE DISPLAYED IN THE DATA LIGHTS 


6.2.3 ILLEGAL INTERRUPTS 
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT ee te 
DURING PROGRAM INITIALIZATION, THE PROGRAM WILL HALT IN 
TCHER RESS AT E PROGRA 


D OGR A 
HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THE  ircaatid 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 T 

RECOVER FROM THIS ERROR. 


6.2.4 ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: - PASCN 
CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND raSSES RESPECTIVELY. 
LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS. 


6.3 END OF PASS ROUTINE 
THIS TYPEOUT e MENTIONED HERE FOR CONVENIENCE 
IT IS IN THE FORM: 
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7.2.1 


7.2.2 


7.3 


7.3.1 


7.4 
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END OF PASS TAPE Y 
IXXXXX = DEVICE 


WHERE Y IS THE TAPE LOADED 

WHERE 1XXXXX IS THE DEVICE'S BASE REGISTER ADDRESS 
TO INHIBIT THIS TYPEOUT = TURN TELETYPE OFF 
RESTRICTIONS 


MULTIPLE DEVICES 
UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER, THEY 
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 


NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHANGE | "ZERO: #10,BASEIV 3NEXT BLOCK 
(VECTORS)"* TO ZERO! ADD #0,BASELV": 

THEREBY THE VECTOR ADDRESSES WILC NOT BE 

UPDATED AFTER EACH PASS. 


DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 


WHEN RUNNING MULTIPLE DEVICES AN ACTIVE BIT IS SET 
FOR EACH DEVICE RUNNING UNDER TEST IE. BIT O FOR 
DEVICE 0 ,BIT 15 FOR DEVICE 15 

TO DISQUALIFY DEVICES: 


IF DEVICE 0 IS TO BE DISQUALIFIED ,SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 


IF HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 
ARE TO . DISQUALIF 15P aos cL OMe THE LOCATION OF ACTREG: 
OBSERVE THE ACTIVE BITS (ACTIVE =1, NONACTIVE = 0) 

AND DEPOSIT 0 WHERE THOSE DEVICES ARE TO BE DISQUALIFIED 


7.2.2.1 re RESTART...TYPE 200G.. 
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING. 


7.2.2.2 seenenden « SET sw00=1 IN SWITCH REG (LOC. 176) AND TYPE 200G.... 
ANSWER THE QUESTION :1ST DEVICE : ETC.......ce0e 
weeeTHE PROGRAM WILL CONTINUE WITH DEVICE 0 


7.2.2.5 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE THE PROGRAM 
WILL TYPEOUT AN ERROR MESSAGE.......TYPE 200G. 


CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


TO PROVIDE SUFFICIENT oe 4 close SIGNAL OVER THE CABLE, 

LOCATION "'HOLD:'* MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES. 
PRESENTLY “HOLD:"* =20 IS SUFFICIENT TIME ON AN 11/21 MACHINE. 

BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


TO USE THE *'XOR’’ TESTER ,THE BRANCH AROUND THE ‘*XOR*’ 


SEQ 0009 


gd * Rh eR eh BE a egts 
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CODE MUST BE PATCHED TO A ‘‘NOP’*. (SEE LISTINGS FOR DETAILS) 


8. DEFAULT PARAMETERS: 
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS= RXCSR: 174300 
VECTOR ADDRESS=- DURIV: 330 
ARE YOU RUNNING MULTIPLE DEVICES ?= NO MULTD: 0 
LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS=- LASTADD: 0 
# OF SYNC CHARS SELECTED = 2 SYNCNO: 377 
IS SEC XMIT SWITCH E55-2 ON?= YES SEXMIT: 377 
IS SEC REC SWITCH E55-3 ON?= YES SEREC: 377 


IS OPT CLR ENABLE SWITCH E55-1 ON?= YES OPTCLR: 377 
DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER 


CONNECTOR ON (H315)= YES JMRBY: 377 
9. PROGRAM DESCRIPTION 
* 
«REM * 
9.1 pete ae bevic PERFORMS THE OFFLINE LOGIC BIT BANGING 
SEE LISTING FOR DETAILS ” 
-REM * 


10. FLOW CHARTS: RECEIVER FLOW, TRANSMITTER FLOW, TRANSMITTER & RECEIVER FLOW 
11. CHANGE HISTORY 


NOTE: HISTORY BEGINS WITH REV. CO 


REV. CO: 1) ALLOW OPERATOR TO SPECIFY ADDRESS > 170000 
2) _ INCREASE DELAY VALUE ‘‘HOLD’’ TO COMPENSATE 
FOR 11/23 EXECUTION TIME (FROM 3777 TO 6200) 


CNDUQAO 
IN ORDER TO BE SPECIFIC TO SBC — paiteitvee’ REV CO 
WAS MODIFIED TO INCLUDE CHANGES F ORITY 6 tt ae OF 7 
-_ DEFAULT CSR AND VECTOR ADDRESSES AN AND rte e INIT CALL 
CNMAC2.SML_ INCLUDED AT THE END TO INITIALIZE eT /21 
12 sPeCiric VECTORS. THE DIAGNOSTIC WAS RENAMED TO CNDUQAO. 
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6598 
6599 
6600 
6611 
6625 
6626 
6627 
66 
6689 
6894 
7022 
7023 .SBTTL APT COMMUNICATIONS ROUTINE 
(2) RRA EKREEEERAREREEEEEEAEEEEEEAAEREEEAEEEKEREEEEEREREEEEEEEEEEE 
(1) 000000 112767 000001 000236 §$ATY1: MOVB  #1,$FFLG ::TO REPORT FATAL ERROR 
(1) 112767 000001 000226 $ATY3: MOVB #1.$MFLG ::TO TYPE A MESSAGE 
(1) 000014 000403 BR SATYC 
(1) 000016 112767 000001 000220 $ATY4: MOVB #1,$FFLG z:TO ONLY REPORT FATAL ERROR 
(1) 000024 SATYC: 
(3) 000024 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 000026 010146 MOV R1,=(SP) +:PUSH R1 ON STACK 
(1) 000030 105767 000206 TSTB © $MFLG 33 SHOULD TYPE A MESSAGE? 
(1) 000034 001450 BEQ HA 
(1) 000036 122767 000001 001502 CMPB Ss WAP TENV,, SENV : OPERATING UNDER APT? 
(1) 000044 001031 BNE F NOT: BR 
(1) 000046 132767 000100 001473 BITB § #APTSPOOL,SENVM 3 s SHOULD SPOOL MESSAGES? 
(1) 000054 001425 BEQ SIF NOT: BR 
(1) 000056 017600 000004 MOV a4(SP),RO tIGET MESSAGE ADDR. 
(1) 000062 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDR. 
(1) 000070 005767 001432 1$: TST SMSGTYPE r:SEE IF “BONE ws LAST XMISSION? 
(1) 000074 001375 BNE 1$ SIF NOT: WAIT 
(1) 000076 010067 001440 MOV RO, $MSGAD 
(1) >;PUT ADDR IN MAILBOX 
(1) 000102 105720 2$: TSTB «(ROD + zzFIND END OF MESSAGE 
(1) 000104 001376 BNE $ 
(1) 000106 166700 001430 SUB $MSGAD,RO ::SUB START OF MESSAGE 
(1) 000112 006200 ASR RO 3GET MESSAGE LNGTH IN WORDS 
(1) 000114 010067 001424 MOV RO, $MSGLGT ::PUT LENGTH IN MAILBOX 
(1) 000120 012767 000004 001400 MOV #4. SMSGTYPE S:TELL APT TO TAKE MSG. 
(1) 000126 000413 BR 
(1) 000130 017667 000004 000016 3$: MOV a4 (SP) . 4$ ::PUT MSG ADDR IN JSR LINKAGE 
(1) 000136 062766 000002 000004 ADD SP) ; :BUMP R ADDRESS 
(3) 000144 016746 177626 MOV Te ea te csp) ::PUSH 17°776 ON STACK 
(1) 000150 004767 012666 JSR PC $TYPE *:CALL TYPE MACRO 
(1) 000154 000000 ; 4$: “WORD 0 
(1) 000156 5$: 
(1) 000156 105767 000062 10$: TSTB  $FFLG 33SHOULD REPORT FATAL ERROR? 
(1) 00016 001416 BEQ 12$ 
(1) 000164 005767 001356 TST SENV 3 RUNNING UNDER APT? 
(1) 600170 001413 BEQ 12$ F 
(1) 000172 005767 001330 11$: TST SMSGTYPE {FINISHED LAST MESSAGE? 
(1) 000176 001375 BNE 1 WAIT 
(1) 000200 017667 000004 001322 MOV a4 (SP), SFATAL tidy ERROR # 
(1) 000206 062766 000002 000004 ADD #2,4(SP) >BUMP RETURN ADDR. 
(1) 000214 005267 001306 INC SMSGTYPE ti TELL APT TO TAKE ERROR 
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i 
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(1) 000220 105067 000020 12$: CLRB  $FFLG s:CLEAR FATAL FLAG 
(1) 000224 105067 000013 CLRB s $LFLG 33CLEAR LOG FLAG 
(1) 000230 105067 000006 CLRB = $MFLG 33 CLEAR MESSAGE oftas 
(3) 000234 012601 MOV + oe R1 POP STACK INTO R1 
(3) 000236 012600 MOV (SP)+,RO 3 :POP STACK INTO RO 
(1) 000240 000207 RTS PC ;RETUR 
(1) 000242 000 SMFLG: .BYTE 0 TRESSG. FLAG 
(1) 000243 000 SLFLG: BYTE 0 
(1) ;LOG FLAG 
1) 000244 000 SFFLG: .BYTE 6 Z:FATAL FLAG 
1) 000246 EV 
(1) 000200 APTSIZE=200 
(1) 000001 APTENV=001 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 
7262 000001 $TN=1 
7388 
7392 
7427 
7444 
7457 
7469 


i 


Bc Sees 
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8164 .ENABLE ABS 
8165 

(3) ZCNDUQ=A0 DUV11 TAPE 
(2) :COPYRIGHT 1977,1980, ‘DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
(2) :STARTING PROCEDURE 
(2) : 2006 i m 
(2) PROGRAM WILL TYPE “‘CNDUQ=AO DUV11 TAPE A 
(2) : PROGRAM WILL TYPE ‘'R" TO INDICATE THAT TESTING HAS STARTED 
(2) THE END OF A PASS, PROGRAM WILL TYPE END OF PASS TAPE A 
(2) AND THEN RESUME TESTING 
(2) .SBTTL BASIC DEFINITIONS 
(2) stINITIAL ADDRESS OF THE STACK POINTER *** 1100 ee 
(2) 001100 STACK= 1100 
(2) -EQUIV EMT,ERROR r:BASIC DEFINITION OF ERROR CALL 
(2) -EQUIV IOT,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
(2) ; sMISCELLANEOUS DEFINITIONS 
(2) 000011 T= 11 3:CODE FOR HORIZONTAL TAB 
(2) 2 LF= 12 +:CODE FOR LINE FE 
(2) 000015 cR= 15 33CODE FOR CARRIAGE RETURN 
(2) CRLF= 200 SCODE FOR CARRIAGE RETURN-LINE FEED 
(2) 177776 PS= 177776 SIPROCESSOR STATUS WORD 
(2) .EQUIV PS,PSW | 
(2) 177774 STKLMT= 177774 : STACK LIMIT REGISTER 
(3) 17777 PIRQ= 17777 [PROGRAM INTERRUP T REQUES! REGISTER 
(2) 17757 DSWR= 17757 ; THARDUARE SWITCH REGIS TER | 
(2) 177570 DDISP= 177570 DWARE DISPLAY REGISTE 
(2) ponses THE FOLLOWING ODt’ START ADDRESS FOR SBC 14721 IS ADDED 
(2) 170000 170000 
(2) SO CENERAL PURPOSE REGISTER DEFINITIONS | 
(2) 000000 RO= 0 3:GENERAL REGISTER 
(2) 000001 Ris 21 S:GENERAL REGISTER | 
(2) 00000 R2= rn Z:GENERAL REGISTER | 
(2) 00000 R3= % [GENERAL REGISTER 
(2) R4= %4 [GENERAL REGISTER 
(2) 000005 R5= 25 [GENERAL REGISTER 
(2) R6= % [GENERAL REGISTER 
(2) 00000 R7= % [GENERAL REGISTER 
(2) P= % i STACK PO! | 
(3) 00000 PC= % [PROGRAM COUNTER | 
(2) s*PRIORITY LEVEL DEFINITIONS 
(2) 000000 0= 0 ;;PRIORITY LEVEL 0 
(2) 000040 PRi= 40 ssPRIORITY LEVEL 1 
(2) 000100 PR2= 100 $:P.10R.7Y LEVEL : 
(2) 000140 PR3= --140 [PRIORITY LEVEL 
(2) 000200 PR4= 00 [PRIORITY LEVEL 4 
(2) 000240 PR5= 4 33PRIORITY LEVEL § 
(2) PR6= 00 RIORITY LEVEL 8 
(3) 00034 PR7= 0 S:PRIORITY LEVEL 
(2) «SWITCH REGISTER’ SWITCH DEFINITIONS 
(2) 100000 $u15= 100000 
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BASIC DEFINITIONS 


~ 
fmlolo ee ey 
nnn “ne “ 
Ssussuss 


3 


Da. Cone Bg fe tons eas Das Bag Pa fae Det Ps Denes treme 
RAS 
w 


2009299220900 0000- 
ee ee eee eee ee eee ee 


ho BIT DEFINITIONS (BITOO TO B1T15) 
= 


se See SSSiees 


sane 
OF BIT 
0 


9 *BIT3 
3H 
100°B1 10 
‘CPu’’ TRAP VECTOR ADDRESSES 
4 2 TIME OUT AND OTHER ERRORS 


BOWWDOOOOO@—nwL— 


SEQ 0015 
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D 2 
SEQ 0016 


(2) 000010 RESVEC= 10 ;:RESERVED AND ILLEGAL INSTRUCTIONS 
(2) 000014 TBITVEC=14 "1" BIT 
(2) 000014 TRIVEC= 14 Z:TRACE TRAP 
(2) 000014 BPTVEC= 14 ::BREAKPOINT TRAP, (BPT) 
(2) 000020 IOTVEC= 20 NPUT/OUTPUT TRAP (IOT) *#SCOPE®s 
(2) 000024 VEC= FAIL 
(2) 000030 EMTVEC= EEERULATOR TRAP (EMT) **ERROR** 
(2) 000034 TRAPVEC= :TRAP’ TRAP 
(2) 000060 TKVEC= 60 nV KEYBOARD VECTOR 
(2) 000064 TPVEC= 64 VY FRINTER VECTOR 
(2) gasses THE FOLLOWING eréix VECTOR AND LINE CLOCK VECTOR ARE INCLUDED 
(2) 000100 ikvec= 100 :sLINE CLOCK VECTOR 
(2) 000140 BRKVEC= 140 ::BREAK VECT 
4 PIRQVEC=240 [PROGRAM INTERRUPT REQUEST VECTOR 
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{s} sSTANDARD INTERRUPT VECTORS 

(2) 

(2) 000174 22174 

(2) 000174 000000 DISPREG:0 

(2) 000176 000000 SWREG:0 

‘s} 000200 -=200 

($} 000200 000167 001746 JMP START G0 TO START OF PROGRAM 

(2) 

3 

(2) 001100 -=1100 

(2) 001100 000000 ~WORD 0 

oH 001102 177570 LIGHTS:177570 

3 

ts) zPROGRAM CONTROL PARAMETERS 

(2) 001104 000000 RETURN: 0 

(2) 001106 000000 NEXT: 0 s ADDRESS OF NEXT TEST TO BE EXECUTED 
(2) 001110 000000 LOCK: 0 sADDRESS FOR LOCK ON CURRENT DATA 
(2) 001112 000000 PASCNT: 0 ;ADDRESS” CONTAINING PASS COUNT 

(2) 001114 000000 ERRCNT: 0 

ts} 001116 000000 SAVSP: 0 7 STACK POINTER STORAGE 

) 3PROGRAM VARIABLES 

(33 001120 000020 HOLD 20 s TEMPORARY STORAGE=DELAY TIME FOR went 
(2) 001122 000000 SHIFT: 0 ZTEMPORARY STORAGE= # OF SHIFTS PER CHAR 
(2) 001124 000000 COUNT: ; TEMPORARY STORAGE= # OF TIMES A CHAR WILL BE SENT 
(2) OOti¢6 000000 SAVPC: 0 sPROGRAM COUNTER STORAGE 

(2) 0011 000000 HLDO: 0 

(2) 001132 000000 HLD1 0 

(2) 001134 iat HLD 0 

(2) 001136 HLD5: 0 

(2) 001140 000000 HLD4: 0 

(2) 001142 000000 HLDS: 0 

oH 001144 000000 HLD6: 0 


CNDUQA.M11 =. 30-OCT-82 12:11 BASIC DEFINITIONS SEQ 0018 | 

PROGRAM, CONVERSATIONAL PARAMETERS 

001146 77 SYNCNO: .BYTE 377  :# OF SYNC CHARS REQ'D FOR SYNC‘ZATION 

001147 77 SEXMIT: .BYTE 377 SEC XMIT JUMPER ““IN’ 

001150 377 SEREC: .BYTE 377 :SEC REC JUMPER “IN 

001151 377 OPTCLR: .BYTE 377 OPTIONAL JUMPER CLR. IN 

00113¢ 900 MULTD: BYTE 9 MULTIPLE DEVICE FLAG i 

00115 377 JMRBY: BYTE 377 SEXTERNAL MODEM BYPASS JUMPER “'IN 
{PROGRAM MULTIPLE DEVICE PARAMETERS 

001154 000000 BASEADD: 0 ONTROLLED ist DEVICE ADDR 

001156 000000 KEEPADD: 0 SAVED 1ST DEVICE ADDR 

001160 000000 LASTADD 0 ZLAST DEVICE RXCSR ADDR 

001162 SEIV: 0 {PROG CONTROLLED IV 

001164 000000 KEEPIV: 0 SAVED INTR VECTOR 

001166 ACTREG: 0 ZACTIVE REGISTER ,,,MODIFY THIS 

LOCATION TO DISQUALIFY OR an) 
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( 


DEVICES (1= RUN 
001170 000000 ROTADD: 0 ;ROTATING POINTER FOR ACTREG. POINTS 
;TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 


sPROGRAM CONTROL FLAGS 


001172 000 oo BYTE 0 3 PROGRAM re FLAG 
001173 000 STFLG: .BYTE 0 TEST START 
001174 000 LOKFLG: .BYTE 0 LOCK ON CURRENT TEST FLAG 
001176 -EVEN 
001400 -=1400 


RODD PIRINININININININININPNYAINYIPI NPINOPYNINININYINYNINIPyPy 
ON 
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(2) 
(53 
ts} s INSTRUCTION DEFINITIONS 
(2) 005746 PUSH1SP=5746 § ;:DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
(2) 005726 POP1SP=5726 S INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
(2) PUSHRO=10046  ;SAVE RO ON STACK =MOV RO,-(SP) 
(2) 012600 POPRO=12600 [RESTORE RO FROM STACK =MOV (SP)+,RO 
(2) 024646 PUSH2SP=24646 :DECREMENT STACK TWICE =CMP =(SP).-(SP) 
(2) 022626 POP2SP=22626  :IN cr RE NT STACK TWICE =CMP (SP)+,(SP)+ 
(2) sREGISTER DEF INITIO 
(2) XCSR BIT "DEFINI ONS 
(2) 100000 pscepiT1é DATA SET CHANGE 
(2) 040000 RING=BIT14 [RING 
(2) 020000 CTS=B1T13 [CLR TO SEND 
(2) 010000 CARDET=B1T12 SCARRIER DETECT 
(2) 004000 RECACT=B1T11 SREC ACTIVE 
(2) 002000 D=B1T10 *SEC REC DATA 
(2) 001000 DSR=BIT9 [DATA SET RDY 
(2) 00 SPsYNBITE 3STRIP SYNC 
(2) 000200 RXDONE=B1T7 C DONE 
(2) 000100 RINTEN=B1T6 3REC INTR ENABLE 
(2) 000040 DSINTE=BITS DSC INTR ENABLE 
(2) 000020 SYNSCH=BI1T4 : SYNC SEARCH 
(2) 000010 STD=BIT3 :SEC XMIT DATA 
(2) 000004 RTS=BI1T2 : 
(2) 2 DTR=BIT1 ‘DATA TERM RDY 
(2) 1 VO1D=81T0 
(2) sRXDBUF BIT DEFINITIONS 
(2) 100000 RXERRSBITT3 :REC ERROR 
(2) 040000 OVRRUN=B1T1 * OVERRUN 
(2) 020000 ONREWNoetTTS 3FRA AME ERROR 
(2) 010000 PARER=B1T12 PARITY ERROR 
(2) -PARCSR BIT DEFINITIONS 
(2) 001000 PAREN=B1T9 sPARITY ENABLE 
(2) 000400 EVPAR=B1T8 SEVEN PARITY SENSE 
(2) *PARCSR WRD DEFINITIONS 
(2) 030000 SYNINT=36000 :SYNC EXTERNAL MODE 
(2) 020000 SYNEXT=20000 ‘SYNC INTERNAL MODE 
(2) 000000 MOD= :1S0C MOD 
(2) 000000 Hee SWORD LENGTH 5 BITS 
(2) 002000 SIX=2000 :WORD LENGTH 6 BITS . 
(2) 004000 SEVEN=4000 SWORD LENGTH 7 BITS - 
(2) 006000 EIGHT=6000 WORD LENGTH 8 BITS 
(2) 000000 NOPAR= :NO PARITY 
(2) 001000 ODDPAR=1000 ODD PARITY 
(2) 001400 EVEPAR=1400 CEVEN PARITY 
(2) -TXCSR BIT DEFINITIONS 
(2) 100000 DNA=BIT1 sDATA NOT AVAILABLE 
(2) 040000 MIDATA=B1T14 :MAINT DATA 
(2) 020000 CLK=B1T1 : 
(2) 002000 BITW=BIT10 ‘BIT WINDOW 
(2) 000400 MRESET=BIT SMASTER RESET 
(2) 000200 TXDONE=81T :XMIT DONE 
(2) 000100 TXINTE=B1 16 *XMIT INTR ENABLE 
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www 

e 


DNAINTE=BIT5 sDNA INTR ENAB 
SEND=BIT : 

Se Carts i HDX/EDX 
BREAK=BIT 

:TXCSR WRD DEFINITIONS 

USER=0 2U E 
MINT=4000 sMAINT INT MODE 
MEXT=10000 :MAINT EXT MODE 
SYSTST=14000 SSYSTEM TEST MODE 


a ne a ee 


I 2 
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(2) .SBTTL COMMON TAGS 

‘¢} FREER EEEAEEEREREE EEE EEE EEE AREER EAEAEEEEEREEEEREREREEREEEE 
(2) SSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

(2) *USED IN THE PROGRAM. 

(3) 001400 2. 

(2) 001400 SCMTAG: 3:START OF COMMON TAGS 

(2) 001400 000000 WORD 0 

(2) 00140 000 STSTNM: .BYTE 0 ::CONTAINS THE TEST NUMBER 

(2) 00140 000 SERFLG: .BYTE 0 3: CONTAINS ERROR FLAG 

(2) 001404 SICNT: WORD 0 3: CONTAINS SUBTEST ITERATION COUNT 
(2) 001406 SLPADR: .WORD 0 3: CONTAINS SCOPE LOOP ADDRESS 

(2) 001410 000000 SLPERR: .WORD 0 3: CONTAINS SCOPE RETURN FOR ERRORS 
(2) 001412 SERTTL: .WORD 0 Z:CONTAINS TOTAL ERRORS DETECTED 
(2) 001414 000 SITEMB: .BYTE 0 3: CONTAINS ITEM CON 

(2) 001415 001 RMAX: .BYTE 1 SECONTAINS MAXe_ERRORS-PER TEST 
(2) 001416 000000 SERRPC: .WORD 0 3:CONTAINS PC OF LAST ERROR INSTRUCTION 
(2) 001420 000000 SGDADR: WORD 0 3:CONTAINS ADDRESS OF ‘GOOD’ DAT 
(2) 001422 000000 $8 WORD 0 3CONTAINS ADDRESS OF ‘BAD’ DATA. 
(2) 001424 000000 S$GDDAT: .WORD 0 ::CONTAINS | GOOD" DATA 

(2) 001426 000000 $B WORD 0 3: CONTAINS "BAD" 

(2) 001430 000000 -WORD 0 UIRESERVED=-NOT TO BE USED 

(2) 001432 000000 -WORD 0 

(2) 001434 000 S$AUTOB: .BYTE 0 s:AUTOMATIC MODE INDICATOR 

(2) 001435 000 SINTAG: .BYTE 0 ZZ INTERRUPT MODE INDICATOR 

(2) 001436 -WORD 0 

(2) 001449 17797 SWR: DSWR s:ADDRESS OF SWITCH REGISTER 

(2) 001442 17757 DISPLAY: .WORD DDISP :SADDRESS OF DISPLAY REGISTER 

(2) 001444 177560 $TkS: 177560 3:TTY KBD STATUS 

(2) 001446 177562 $TkKB: 177562 :3TTY KBD BUFFER 

(2) 001450 177564 $TPS: 177564 ¥ PRINTER STATUS REG. ADDRESS 
(2) 001452 177566 $TPB: 177566 ITTY PRINTER BUFFER REG, ADDRESS 
(2) 001454 000 $NULL: BYTE 5 FICONTAINS NULL CHARACTER FOR FILLS 
(2) 001455 002 SFILLS: -BYTE 

(2) ;CONTAINS # OF FILLER CHARACTERS REQUIRED 

(2) 001456 012 sriuuc: .evte 13 zs INSERT FILL CHARS. AFTER A “LINE 
(2) 001457 000 STPFLG: .BYTE 0 3 TERMINAL AVAILABLE” FLAG (BiT<O7S<0-VES) 
(2) 001460 000000 S$REGAD: .WORD 0 ::CONTAINS THE ADDRESS. F 

(2) EIWHICH  (SREGO) WAS OBTAINED 

(4) 001462 000000 $REGO: .WORD 0 33 CONTAINS (($REGAD) +0) 

(4) 001464 000000 $REGI: .WORD 0 3 CONTAINS (<SREGAD) #2) 

(4) 001466 000000 $REG2: WORD 0 TAINS ((S$REGAD) +4) 

(4) 001470 000000 $REGS: 0 33CONTAINS ((SREGAD) +6) 

(4) 001472 000000 EG4: . 0 AINS (($REGAD) +10) 

(4) 001474 000000 $REGS: 0 Z:CONTAINS (($REGAD) +12) 

(4) 001476 000000 STMPO: WORD 0 33USER DEFINED 

(4) 001300 000000 $TMP1: .WORD 0 3:USER DEFINED 

(4) 001502 000000 $TMP2: 0 3:USER DEFINED 

(4) 001504 000000 $TMP3: WORD 3USER DEFINED 

(4) 001506 000000 $TMP4: WORD 3USER DEFINED 

(4) 001510 000000 STMPS: -WO"D 3 ZUSER DEFINED 
ea i$ Eatin Eaten Kese 

(2) 001516 177607 000377 $BEL!: .ASCIZ <207><377><377> ::CODE FOR BELL 

(2) 00152 077 SQUES: ASCII /2/ 3: QUESTION MARK 
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eASCIZ 
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PTTTTITITITITITI ITT LILLIE LLLITT TTT LLL 


| CNDUQ=AO MACY11. 30(1046) 

CNDUQA.M11 —- 30-OCT-82 12:1 
(2) 001523 015 SCRLF 
(23 001524 00012 SLF 
(3) 
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S88 S8S8SSSSSSsSss 
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ee ee ed ed ed ad ad ad ed od ed 
ViVIiw WMV 
5 at a 


ENS 
S 


000 
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601566 000 


RRR 
RUNS 
oS 


sesess sessesss 
Nese RS 
s 


eat eh a et each aR ab ceed me meh aad od 


An 
== 
ans 


*SBTTL APT MAILBOX-ETABLE 


ahhh hhh hacheclecheha leche niece helenae bainleiaiaiiadedel 


EVEN 
SGTY: .WORD AMSGTY 
SFATAL: .WORD AFATAL 
STESTN: .WORD ATESTN 
PASS: .WORD APASS 
SDEVCT: .WORD ADEVCT 
IT: . WORD AUNIT 
SGAD: .WORD AMSGAD 
SMSGLG: .WORD AMSGLG 
SETABLE 
SENV:  .BYTE AENV 
SENVM: .BYTE AENVM 
> ENVIRONMENT MODE BITS 
$SWREG: .WORD ASWREG 
$US “WORD AUSWR 
SCPUOP: .WORD  ACPUOP 
ce 
3* 
3* 
3* 
°* 

S1: .BYTE AMAMS1 
SMTYP1: .BYTE AMTYP1 
°* 

e 

3* 

°& 

SMADRI: -WORD AMADR1 

SANS? .BYTE AMAMS 

SMTYP2: .BYTE AMTYP 
DR2: .WORD AMADR 

S3: .BYTE AMAMS 
SMTYP3: .BYTE AMTYP 

R3: .WORD AMADR3 

S4: .BYTE AMAMS4 
SMTYP4: .BYTE AMTYP4 

DR4: .WORD AMADR 
SVECT1: .WORD AVECT1 
SVECT2: .WORD AVECT2 

SE: .WORD 
SDEVM: “WORD EV 
$CDW1: <.WORD ACDW1 
$CDW2: .WORD ACDWG 
$0D “WORD ADD 
$DDW1: <:WORD  ADDW!1 
SDDW2: WORD ADDW2 


33APT MAILBOX 
+ sMESSAGE TYPE CODE 
23FATAL ERROR NUMBER 
33PASS COUNT 
+ DEVICE COUNT 

/0 UNIT NUMBER 
 IMESSAGE eae 
Sy 3 ae LENGTH 

T ENVIRONMENT TABLE 

+ ENVIRONMENT BYTE 


33 APT aaa REGISTER 
Hae Tiy05z02.41 


Y 
H "ADDRESS... BYTE 
YPE BYTE -- (HIGH BYTE) 


ais 
= 


00 
: HIGH rae 


YADDA n¥ BYTES, eTHIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 


3 sHIGH ADDRESS M.S. 
M.TY i) 


a BL 
;MEM.LAST ADDRESS BLK&2 
$iHIGH 6 w ty M.S.BYTE 


ad YPE, 
:MEM.LAST “ADDRESS, BLK#3 
3 3HIGH ADDRESS .M.S.BYTE 
ad A. TYPE BLK 
?MEM.LAST ADDRESS spines 
NTERRUPT VECTOR#1,BUS PRIORITY#1 
23 INTERRUPT VECTOR#2BUS PRIORI TY#2 


ABASE 
sBASE ADDRESS OF EQUIPMENT UNDER TEST 
ADEVMA E MAP 


Vv 
3: CONTROLLER DESCRIPTION WORD#1 
sCONTROLLER DESCRIPTION WORD#2 
3 DEVICE DESCRIPTOR WORD#O 
; ICE DESCRIPTOR WORD AT 
$ DEVICE DESCRIPTOR WORD#2 





SEQ 0022 , 
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(3) dhe 4 000000 $DDW3: .WORD ADDW3 ;;DEVICE ee icctoree WORD#3 
(3) 001622 000000 SDDW4: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#4 
(3) 001624 000000 $DDWS: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#S 
(3) Oo 1oe8 $DDW6: .WORD ADD 3s;DEVICE DESCRIPTOR WORD# 
(3) 0016 000000 $DDW7: .WORD ADDW 3;DEVICE DES TOR WORD# 
(3) 001632 000000 $DDW8: .WORD ADDWB  ;;DEVICE DESCRIPTOR WORD#S 
(3) 001634 $DDW9: .WORD ADDW9  ;;DEVICE DESCR 

(3) 001636 000000 $DDW10: . ADDW10 + ;;DEVICE DESCRIPTOR WORD#10 
(3) 001640 000000 $ODW11: . ADDW11 ;;DEVICE DESCRIPTOR WORD#11 
(3) 001642 000000 SDDW12: .WORD ADDWI2 ;;DEVICE DESCRIPTOR WORD#1 
(3) 001644 000000 $DDW13: .WORD ADDW1 + sDEVICE DESCRIPTOR WORDA#1 
(3) 001646 000000 SDDW14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORD#14 
3} 001650 000000 $DDW15: .WORD ADDW15 DEVICE DESCRIPTOR WORD#15 
(3) 

(3) 001652 SETEND: 

(3) 

(4) 

(4) 


2 
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(4) 
(4) 
(4) 
(4) y INSTRUCTION DEFINITIONS 
(4) 005746 PUSH1SP=5746 §_ ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
(4) 005726 POP1SP=5726 SINCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
(4) 010046 PUSHRO=1 [SAVE RO ON STACK =MOV RO,-(SP) 
(4) 012600 PRO=12 ZRESTORE RO kK =MOV (SP)+, 
(4) 024646 PUSH2SP=24646  :DECREMENT STACK TWICE =CMP -(SP),-(SP) 
(4) 022626 POP2SP=22626 : INCREMENT STACK TWICE =CMP (SP)+,(SP)+ 
(4) :REGISTER DEFINITIONS 
(4) XCSR BIT DEFINITIONS 
(4) 100000 psceprrié ZDATA SET CHANGE 
(4) 040000 RING=B1T14 3RI 
(4) 020000 CTS=B1T13 [CLR TO SEND 
(4) 010000 CARDET=B1T12 ; CARRIER DETECT 
(4) 004000 RECACT=BIT11 SREC ACTIVE 
(4) 002000 SRD sSEC REC DATA 
(4) 001000 DSR=BIT9 SDATA SET RDY 
(4) 000400 STPSYN=B1T :STRIP SYNC 
(4) 000200 RXDONE=BI1T TREC DONE 
(4) 000100 RINTEN=B1T6 [REC INTR ENABLE 
(4) 000040 DSINTE=BITS :DSC_INTR ENABLE 
(4) 000020 SYNSCH=B1 14 SYN 
(4) 000010 STD=BIT :SEC XMIT DATA 
(4) 000004 RTS=BIT2 REQ 
(4) 00002 DTR=BIT1 [DATA TERM RDY 
(4) 1 VOID=B1TO, 
(4) XDBUF BIT DEFINITIONS 
(4) 100000 RNERR=BIT TS REC ERROR 
(4) 040000 OVRRUN=BIT14 S OVERRUN 
(4) 020000 FRMERR=B1T13 : FRAME ERROR 
(4) 010000 PARER=B1T12 ARITY ERROR 
(4) :PARCSR BIT Der HIT IONS 
(4) 001000 PAREN=B119 ITY ENABLE 
(4) 000400 EVPAR=B1T8 SEVEN PARITY SENSE 
(4) PARCSR WRD DEFINITIONS 
(4) 030000 SYNINT=30000 :SYNC EXTERNAL MODE 
(4) 020000 SYNEXT =20000 3SYN NC INTERNAL MODE 
(4) 000000 1SYMOD= :1S0C MODE 
(4) 000000 FIVE=0 :WORD LENGTH 5 BITS 
(4) 002000 X= sWORD LENGTH 6 BITS 
(4) 004000 SEVEN=4000 :WORD LENGTH 7 BITS 
(4) 006000 EIGHT= WORD LENGTH 8 BITS 
(4) 000000 tA he [NO PARITY 
(4) 001000 ODDPAR=1000 [00D PARITY 
(4) 001400 EVEPAR=1400 *EVEN PARITY 
(4) -TXCSR BIT DEFINITIONS 
(4) 100000 DNA=B1T15 sDATA NOT AVAILABLE 
(4) 040000 MTDATA=B1T14 SMAINT DATA 
(4) 920000 CLK=B1T1 *CL 
(4) 2000 BITW=B1T10 [BIT WINDOW 
(4) 000400 MRESET=BIT [MASTER RESET 
(4) 000200 TXDONE=81T 3X 
(4) 000100 TXINTE=B1 16 ?XMIT INTR ENABLE 
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(4) 000040 DNAINTESBITS DNA INTR ENAB 
(4) 000020 SEND=B1T4 : 

(4) 000010 HDXEN=B1T3 HOX/FOX 

(4) 000001 BREAK=B110 BREAK 

(4) | sTXCSh WRD ver init ions 

(4) 000000 USER=0 USER MOD 

(4) 004000 hint =2000 :MAINT INT MODE 
(4) 010000 MEXT=10000 ;MAINT EXT MODE 


SYSTST=14000 ;SYSTEM TEST MODE 


ee SES Se =< eo 


SEQ 0025 — 
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exam 30-OCT-82 12:1 ERROR POINTER TABLE SEQ 0026 
(2) SBTTL ERROR POINTER TABLE | 
(3) THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(3) :THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER F 
(3) ATION SIVEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE [S PERTINENT. 
(3) < SNOTET. Tf SITEMB 18-0 THE-ONLY PERTINENT DATA I$ (SERRPC). 
(3) :eNOTE2: Fach ITER 1 THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(3) :* EM S:POINTS TO THE ERROR MESSAGE 
(3) ie DH S:POINTS TO THE DATA HEADER 
(3) ie DT *:POINTS TO THE DATA 
(2) te DF ‘POINTS TO THE DATA FORMAT 
(3) 
(2) 001652 SERRTB 
(1) sERROR TABLE 
(1) 001652 001762 EMI ERROR 1 REGISTER ERROR 
(1) 001654 002067 DH] 
(1) 001656 002116 oT1 
(1) 001660 002132 OF1 
(1) 001662 002022 EM2 ss ERROR 2 RECEIVER ERROR 
(1) 001664 002067 DH1 
(1) 001666 002116 oT1 
(1) 001670 002132 DF1 
(1) 001672 002048 EMS —s ; ERROR 3 TRANSMITTER ERROR 
(1) 001674 002067 DH1 
(1) 001676 002116 oT1 
1) 709 00015 DF1 
(1) 00170 174 EM4 sERROR 4 BIT ERROR (GENERAL) 
(1) 001704 0000 
(1) 001706 00212 DT4 
(1) 001710 00213 DF1 
(1) DEFAULT DU ADDRESSES 
(1) 001712 17 RXCSR: 174300 
(1) 001714 174301 BSR 1eeaor 
(1) 001716 17430 RXDBUF: 174302 
(1) 001720 17430 HRXDBUF : 174303 
(1) 001722 174308 PARCSR: 174302 
(1) 001724 17430 HPARCSR: 174303 
(1) 001726 174304 TXCSR: 1763 
(1) 001730 174305 HTXCSR: 174305 
(1) 001732 Hog aod. 
(1) 001734 17430 
(1) ~, - ay evens 
(1) 001736 000330 DURIV: sREC INTR VECTOR 
(1) 001740 00033. rie a STATUS 
(1) 001742 ett INTR VECTOR 
(1) 001744 0003 burs: itt, INth STATUS 
(1) 90176 920040 051105 047522 EMA: a ttih més sate Se PC / 
(1) 001754 0 Bees 13360 04 
(1) 001702 92004 047905 050113 EMI: — .ASCIZ / COMPARISON ERROR ON REGISTERS/ 
(1) 001770 051101 051511 047117 
(1) 001776 42440 051122 051117 
(1) 002004 047440 020116 042522 


— 


ec one ee ee a a ne ee -  - - a —i—i—t— tie _ —- or <2 - 


——_—__——-—-—---- 


B 3 
CNDUQ=A0 MACY11 30(1046) 14=DEC-82 09:56 PAGE 62-13 | 
CNDUQA.M11 - 30-OCT-82 12:11 ERROR POINTER TABLE SEQ 0027 | 
(1) 002012 044507 052123 051105 
(1) 002020 000123 
(1) 002022 020040 042522 042503 EM2:  .ASCIZ / RECEIVER ERROR/ 
(1) 002030 053111 051105 042440 | 
(1) 002036 «051122 «051117 090 | 
(1) 00204 040 052060 040522 EM3:  .ASCIZ / TRANSMITTER ERROR/ | 
(1) 002050 051516 044515 052124 
(1) 002056 051105 042440 051122 
(1) 002064 051117 000 
(1) ;DATA HEADERS FOR ERROR MESSAGES 
(1) 002067 105 051122 041520 DH1:  <ASCIZ /ERRPC WANTED ACTUAL/ 
(1) 002074 020040 040527 052116 | 
(1) 002102 042105 020040 041501 
(1) 002110 052524 046101 000 
(1) 002116 EVEN | 
(1) ;DATA TABLES FOR ERROR MESSAGES 
(1) 002116 001416 001130 001132 ODT1: “WORD SERRPC,,HLDO,HLD1,0 
(1) 002124 000000 | 
(D 002126 001416 000000 DT4:  .WORD SERRPC,O 
(1) 002132 000 000 000 oF1: .BYTE 0.0.0.0 
(1) 002135 000 
(1) EVEN | 
(3) *“SBTTL ACT11 HOOKS 
(3) FERRARA EAEEEEEEEEEEEAEEEEEEEREEEEEEEEEEREEEEKEEREEEREREEEREEREEERE ! 
2) ‘hooks REQUIRED BY ACT11 | 
(3) 002136 $SVPC=. SAVE PC 
(2) 000046 .=46 | 
(2) 000046 012664 SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP | 
(2) 000052 009005 "WORD 0 :32)SET Loc. 52 TO ZERO 
(2) 002136 =$SVPC t: RESTORE P 
(2) .SBTTL APT PARAMETER BLOCK 
(3) SRRAAAAAAAAAEAEEAAEEAEREREEEEEEEREEAAEEEEEREREREEEREREREEEEREEEE } 
(2) :SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(3) 23 RAAAAAEEAAEAAAEAEAEEAEEAEEAEAEAEREAARAAEAAAAEAEAAAAAEAAAEAREEEEEEEE i 
(2) 002136 -$X=. = SAVE CURRENT LOCATION 
(2) 000024 *=24 ::SET POWER FAIL TO POINT TO START OF PROGRAM | 
(2) 000024 000200 300 T:FOR APT START 
(2) 000044 -=44 — ::POINT TO APT INDIRECT ADDRESS PNTR. | 
(2) 000044 002136 SAPTHDR ::POINT TO APT HEADER BLOCK 
(2) 002136 .=.$X  ::RESET LOCATION COUNTER 
( ) SREAEAAAAAAAAAAAAAAAEAEAAATAAETERAEAAAEARARAAEAAEAAEEEAAREREEAEEEREE | 
(2) :SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
(3) SINTERFACE SPEC. 
(2) 002136 SAPTHD: 
(2) 002156 000000 SHIBTS: .WORD 0 3:TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(2) 002140 00152 SMBADR: [WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 
(2) 002142 00001 STSTM: _WORD 10 ::RUN TIM OF LONGEST TEST 
(2) 002144 00001 SPASTM: :WORD 10 2 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(2) 00214 900009 SUNITM: ZWORD Dat TONAL RUN T TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(2) 002150 00005 “WORD SETEND-SHAIL? 3;LENGTH MAILBOX=E TABLE (WORDS) 
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CNDUQA.M11 - 30-OCT-82 12:11 APT PARAMETER BLOCK SEQ 0028 | 

(Q} 

&) : PROGRAM INITIALIZATION 

(2) SLOCK OUT INTERR 

(2) 3SET UP PROCESSOR STACK 

(2) UP POWER FAIL VECTOR 

(2) [CLEAR PROGRAM CONTROL FLAGS AND COUNTS 

(3) :TYPE TITLE MESSAGE 

(2) 002152 START: 

(3) *SBTTL INITIALIZE THE COMMON TAGS 

(3) 7:CLEAR THE COMMON TAGS (SCMTAG) AREA 

(3) 002152 012706 001400 MOV #SCHTAG, RO ziFIRST LOCATION TO BE CLEARED 

(3) 002156 005026 CLR (R6)+ =:CLEAR MEMORY LOCATION 

(3) 002160 022706 001440 CMP #SUR,R6 ;;DONE? © 

(3) 002164 0013? BNE 6 z:LOOP BACK IF 

(3) 166 012706 001100 #ASTACK,SP aeSETUPY yi THE STACK POINTER 

(3) ss INITIALIZE A FEW VECTORS 

(3) 002172 012737 016272 000020 #ss¢ COPE a#10 IvEC #107 VECTOR FOR SCOPE ROUTINE 

(3) 002200 012737 000300 000022 MOV aviotve LEVEL 

(3) 002206 012737 014160 000030 MOV aSERKOR on a#EMTVEC :;EMT VECTOR FOR ERROR ROUTINE 

(3) 002214 012737 000300 000032 non MOV #PR6,AFEMTVEC+2 3 :LEVEL 6 

(3) 002222 012737 016626 000034 MOV #STRAP ,a#TRAPVEC jTRAP _NECTOR FOR TRAP CALLS 

(3) 002230 012737 000300 000036 MOV #PR6 ,ASTRAPVECS2:LEVE 

(3) 002236 012737 014762 000024 MOV #SPWRON, a#PWRVEC : POWER FAILURE VECTOR 

(3) 002244 012737 000300 000026 MOV #PR6,a#PWRVEC+2 ; 33LEVEL 6 

(3) 90285 903067 177234 CLR STIMES sie ZE NUMBER OF ITERATIONS 

(3) 5067 177232 CLR SESCAPE $ECLEAR THE ESCAPE ON ERROR ADDRESS 

(3) 002262 112767 000001 177125 MOVB #1, SERMAX TALLOW ONE ERROR PER T 

(3) 002270 012767 002270 177110 MOV 4.» SLPADR 33 INITIALIZE THE LOOP ADDRESS FOR SCOPE 

(3) 002276 012767 002276 177104 MOV *SLPERR TUP THE ERROR LOOP ADDRESS 

(4) riSIZE FOR A HARDUARE. SWITCH REGISTER. 1 F NOT FOUND OR 

(4) S:EQUAL TO A ‘=1'". SETUP FOR A SOF TUARE- SWITCH REGISTER. 

(4) 002304 013746 000004 MOV @IERRVEC,<(SP) 33 SAVE ERROR VECTOR 

(4) 002310 012737 002344 000004 MOV #64$,asERRVEC :2SET UP ERROR VEC TOR 

(4) 002316 012767 177570 177114 MOV #0SWR, SUR [:SETUP FOR A HARDWARE SWICH REGISTER 

(4) 002324 012767 177570 177110 MOV #0DISP, DISPLAY 3AND A HARDWARE DISPLAY REGISTER 

(4) 002332 022777 177777 177100 CMP #-1,aSUR [TRY TO REFERENCE HARDWARE SwR 

(4) 002340 001012 BNE 663 3 ]BRANCH IF NO TIMEOUT TRAP OCCURRED 

(4) THE HARDWARE SWR IS NOT = -1 

(4) 002342 000403 BR 65$ :ZBRANCH IF NO TIMEOUT 

(4) 002544 12716 002352 64$: mov #65$, (SP) t:SET UP FOR TRAP RETURN 

(4) 002352 012767 000176 177060 65$: MOV #SWREG yisPOINT TO SOFTWARE SWR 

(4) 002360 012767 000174 177054 MOV ao ispaee D DISPLAY 

(4) 002366 012637 000004 66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 

(4) 002372 1771 CLR SPA r:CLEAR PASS COUNT 

(4) 002376 133767 000200 177143 BITB SAPTSIZE . SENVM 3s TEST USER SIZE UNDER apt 

(4) 002404 BEQ 7$ ES,USE NON-APT SWITC 

(4) at iba 001550 177024 ae MOV #SSUREG, SUR SINOLUSE APT SWITCH REGISTER 

(2) 414 912706 001100 MOV #STACK,SP :SET STA 

(2) 420 1 0003 MTPS #300 LOCK INTERRUPT s 

3 $05¢5e 013987 Otero 000024 MOV #.PFAIL, #24 [SET UP POWER FAIL VECTOR 
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(2) 002432 105067 176535 CLRB ss STFLG ZCLEAR START FLAG 

(2) 00. 436 005067 176450 CLR PASCNT SCLEAR PASS COUNT 

(2) 002442 105067 176735 CLRB = SERFLG SCLEAR ERROR FLAG 

(2) 002446 005067 176740 CLR SERTTL *CLEAR ERROR COUNT 

(2) 002452 005067 176740 CLR SERRPC SCLEAR LAST ERROR POINTER 

(2) 002456 012767 000001 176716 MOV #1,$TSTNM :SET UP F T 

(2) 002464 012767 002152 17641 MOV #. START, RETURN [SET UP FOR POWER FAIL BEFORE 

(2) [TESTING STARTS 

(2) 002472 013746 000006 MOV a#6,-(SP) 

(2) 002476 013746 000004 MOV av ,-(SP) 

(3) 002502 012737 002516 000004 MOV #1$.a84 

(2) 002510 005777 176724 TST Su 

(2) 002514 00040 BR 2$ 

(2) 002516 012767 000176 176714 1$: MOV #SWREG,S 

(2) 002524 012767 000174 176710 MOV #DISPREG, DISPLAY 

(2) 002532 022626 CMP (SP)+, (SP)+ 

(2) 0025 0126 7 000004 2$: MOV (SP) +. 084 

(2) 002540 012637 000006 MOV SP) +. ae 

(2) 002544 022767 000176 176666 CMP #SWREG, SUR 

(2) 002552 00100 BNE 

(2) 002554 005737 000042 TST an2 :CHECK FOR CHAIN 

(2) 002560 001402 BEQ 33$ 

(2) 002562 000167 000522 JMP .BEGI 

(2) 002566 004767 010154 338 JSR PC, CNTLU 

(2) 002572 105767 176374 TST8 —sINIFLG sHAS INITIALIZATION BEEN PERFORMED 

(2) 002576 001004 BNE ONCE 

(5) Dosepe lester 476365 toms = INIFLG™ CIF NOT SET FLAG AND DO 

{5} tats 105767 1383 $ ONCE: TSTB  $ENV zAPT CONTROL? 

(2) 002614 001410 BEQ 11$ 'BR IF NO 

(2) 002616 032767 000001 176726 BIT #1,$USWR SEXTENAL JUMPER ON? 

(2) 002624 00100¢ BNE 12$ ; 

(2) 002626 105067 176321 CLRB  JMRBY [CLEAR FLAG 

(2) 002632 000167 000452 12$:  JMP ~BEGIN :60 DO IT 

(2) 002636 032777 176574 11$: BIT #SwO0,aSwR SRESELECT VECTOR & CONTROL REG? 

(2) 002644 001002 BNE 1$ 

(2) 002646 000167 000436 JMP ;BEGIN 

(2) 002652 012700 000300 1$: MOV #300,RO :RESTORE VECTOR AREA TO TRAPCATCHER 

(2) 002656 012701 000302 MOV #302.R1 :START AT LOCATION 300 

(2) 002 012702 000004 MOV #4 RO 

(2) 002 01011 2$: MOV R1, (RO) 

(2) 002670 005011 CLR (Ri) 

(2) 002672 060200 ADD R2,RO 

(2) 002674 060201 ADD R2.R1 

(2) 002676 022701 001000 CMP #1000,R1 ZEND AT LOCATION 776 

(2) 002702 002771 BLT 

(2) 002704 104406 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 

(2) 002706 015171 MREGAD :MESSAG 

(2) 002710 104410 PAR [CONVERT STRING 

(2) 002712 174000 174000 ;LOW LIMIT 

(2) 002714 177776 177776 :HIGH LIMIT 

(2) 002716 01712 DUBASE STORE AT THIS LOCATION 

(2) 002720 001 .BYTE 1 [MAS 

( 6057 5 016967 014174 176226 oaths nov BUBASE KEEPADB> ‘Sshve 

(1) 002730 004767 014034 JSR PC ,DUADDR 
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CNDUQA.M11 - 30-OCT-82 12:1 INITIALIZE THE COMMON TAGS SEC 0030 
(1) 34 016767 176216 176212 MOV KEEPADD ,BASEADD “RESTORE FOR ROTATION 
(2) 002742 104406 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 
(2) 002744 015156 MVECTO :M oh 
(2) 002746 104410 : CONVERT STRING 
(3) 002750 000300 00 :LOW LIMIT 
(2) 002752 000776 76 chiGH LIMIT 
(2) 002754 001736 DURIV STORE AT THIS LOCATION 
(2) 00275 001 .BYTE 1 
(2) 00275 “BYTE 4 “HOW MANY TIMES + 2 
(1) 002760 016767 176752 176176 MOV bURIV REEPIV SAVE 
(1) 002766 016767 176744 176166 DURIV BASEIV SET UP FOR ROTATION 
(2) 002774 104406 INSTR TPUT MESSAGE & GET INPUT STRING 
(2) 002776 015221 MMULT :MESSAGE 
(2) 003000 104414 SETFLG isET FLAG BASED UPON INPUT STRING 
(2) 003002 001152 MUL TD L 
(1 003004 105767 176142 TSTB uct ;ARE THERE MULTIPLE DEVICES 
(1) 003010 100406 I BBB : YES, ASK NEXT QUESTION 
(1) 003012 005067 176150 CLR ACTREG 
(1) 003016 005067 176146 CLR ROTADD 
(1) 903022 000167 000140 son JMP OUTMUL ;JUMP AROUND NEXT QUESTION 
(2) 003026 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(2) 003030 015250 MLASTD 
(2) 003032 104410 PARAM 3CONVERT STRING 
(2) 003034 174000 174000 LIMIT 
(2) 003036 177776 177776 :HIGH LIMIT 
(3) 90504 001160 LASTADD *STORE AT THIS LOCATION 
(2) 001 BYTE 
(2) 00304 001 <BYTE 1 TIMES + 2 
(1) “THE FOLLOWING RbUTINE” SETS uP ACTREG FOR THE FIRST TIME 
(1) 003044 012767 000001 176116 i$: MOV #1,ROTADD T UP POl 
(1) 003052 005067 176110 CLR ACTREG ;CLR active REGISTER 
(1) 003056 056767 176106 176102 2%: BIS ROTADD-ACTREG :MAKE THIS DEVICE ACTIVE 
(1) 003064 000241 CLC 
(1) 906167 176076 ROL ROTADD ;SET UP POINTER 
(1) 003072 103421 BCS 3$ *ARE YOU OUT OF RANGE ? 
(1) 003074 062767 000010 176052 ADD #10,BASEADD :SET UP BASE ADDRESS 
(1) 003102 026767 176052 176044 CMP ASTADD, BASEADD :I1S THIS THE LAST DEVICE ? 
(1) 003110 101362 BHI :NO DO If AGAIN 
(1) 003112 056767 176052 176046 BIS ROTADD. ACTREG *THIS ASSUMES THAT THERE ARE AT 
(1) sLEAST TWO DEVICES WHEN YOU ANSWER YES TO 
(1) jMULTIPLE DEVICE QUESTION 
(1) 003120 012767 000001 176042 4$: MOV ROTADD :SET UP FOR LATER USE IN END OF PASS ROUTINE 
(1) 003126 016767 176024 176020 MOV EreRADO. BASE ADD *DITTO 
(1) 003134 000414 BR ONT QUESTIONS 
(1) 003136 016767 176014 176010 3%: MOV OU EPADD, BASEADD RESTORE 
(2) 003144 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(2) 3146 015344 
(2) 003150 104410 ; CONVERT STRING 
(2) 003152 174000 1740 IMIT 
(2) 003154 177776 177776 HIGH LIMIT 
(2) 003156 001160 LASTADD STORES AT THIS LOCATION 
(2) 003160 001 .BYTE 1 MASK 
(2) 003161 001 -BYTE 1 *HOW MANY TIMES + 2 
(1) 003162 000167 177656 JMP is :D0 IT AGAIN 
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CNDUQA.M11 - 30-OCT-82. 12:11 INITIALIZE THE COMMON TAGS SEQ 0031 
(1) 003166 012767 000300 013570 OUTMUL: MOV #300, DUPRT 
(1) 003174 004767 013514 JSR PC ,DULEV 
(2) SCOMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
(3) BUFFER TO THE CHARACTERS ‘I'* AND "2", 
(2) 3IF ThE CHARACTER IS ‘‘I'’ CLEAR THE FLAG 
(2) SIF THE CHARACTER IS ''2" SET THE FLAG 
(2) 003200 AAA: 
(2) 003200 104406 INSTR ;OQUTPUT MESSAGE & GET INPUT STRING 
(2) 003202 01556 MSYNC :MESSAGE seiad 
(2) 003204 122767 000061 012712 3$: CMPB.s«#"1, INBUF zIs 17 "1"? 
(3) 003212 001003 BNE 
(2) 003214 105067 175726 CLRB SYNCNO ;000 
(2) 003220 000412 BR om 
(2) 003222 122767 000062 012674 1S: CMPB es #2, INBUF s1S IT "2°" 2 
(2) 003230 001004 BNE 
(2) 003232 112767 177777 175706 MOVB #=1,SYNCNO 3377 
(2) 003240 000402 BR 4 
(2) 003242 104407 2$: INSTER ;:RETRY 
(2) 003244 000757 BR 5$ 
(2) 003246 000240 4$: NOP 
(2) 003250 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
(3) 003252 015630 MWIRE6 ; 
(2) 003254 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003256 001147 SEXMIT THIS FLA 
(2) 003260 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(2) 003262 015701 MWIRES :MESSA 
(2) 003264 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 005266 1150 SEREC : 
(2) 003 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(2) 003272 015751 MWIREG ;MESSA 
(2) 003274 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003276 001151 OPTCLR : L 
(2) 003300 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(2) 003302 016030 MEXTJ :MESSA 
(2) 003304 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(3) 003306 001153 JMRBY :THIS FLAG 
ts} sTEST START AND RESTART 
(2) 003310 012706 001100 .BEGIN: MOV #STACK,SP :SET UP STACK 
(2) 003314 106427 000300 mTPS «#300 SLOCK OUT INTERRUPTS 
(2) 003320 032777 000002 176112 BIT #5W01,aSwR t1F SWO1=1, GET STARTING PC 
(2) 003326 001413 BEQ 
(3) 003330 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(3) 003332 015514 MTSTPC : 
(3) 003334 104410 PAR [CONVERT STRING 
(3) 003336 003374 1st sLOW LIMIT 
(3) 003340 017500 17500 HIGH LIMIT 
(3) 003342 001402 STSTNM STORE AT THIS LOCATION 
(3) 003344 001 .BYTE 1 [MASK 
(3) 003345 1 BYTE 1 *HOW MANY TIMES + 2 
(2) 003346 016767 176030 175530 MOV $TSTNM, RETURN 
(2) 003354 000403 BR 
(2) 003356 012767 003374 175520 3%: MOV #TST1, RETURN :START AT TEST 1 
(2) 003364 104401 015510 4$: TYPE : 
(2) 003370 000177 175510 JMP RETURN [START TESTING 
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iss 
8168 s:THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
(5) ee Peer rererr er eT eT Te TT TTT TT TTT TT TT TTT TTT TT TTT TTT TT TTT TTT TTT TT TTT 
(4) 003374 000004 Tl: SCOPE 
(1) 003376 012737 017362 000004 MOV #TRPREG, 2646 :SETUP TRAPCATCHER 
(1) 003404 016737 174670 000006 MOV R6,a%6 ; 
(1) 003412 105277 176274 INCB :TEST THIS REG 
(1) 003416 000401 BR ‘ sIF OK JMP AROUND ERROR 
(1) 003420 104004 ERROR 4 :CHECK DEVICE REG ADDRESSES 
(1) 003422 105277 176266 INCB  @HRXCSR ; TEST UPPER BYTE THIS REGISTER 
(1) 003426 000401 BR +4 :1F OK JMP AROUND ERROR 
(1) 003430 104004 ERROR 4 ICHECK DEVICE REG ADDRESSES 
(1) 003432 012737 000006 000004 MOV #6086 :RESTORE TRAPCATCHER 
(1) 003440 012737 000000 000006 MOV 40,086 ; 
8169 003446 012767 006200 175444 MOV #6200, HOLD :SET LONGER DELAY FOR TEST. r:REV. CO 
8170 s;THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
(5) ° : Reeketeeeeeeeeeeeeeeeeeeeeeeereeneneeeeeareaeeeeeeaereeeeeeeeer 
4) 003454 000004 TST2: SCOPE 
(1) 003456 012737 017362 000004 MOV #TRPREG, 284 :SETUP TRAPCATCHER 
(1) 003464 016737 174610 000006 MOV PR6,a%6 ; 
(1) 003472 105277 176220 INCB @RXDBUF sTEST THIS REG 
(1) 00 6 000401 BR +4 [IF OK JMP AROUND ERROR 
(1) 003500 104004 ERROR 4 :CHECK DEVICE REG ADDRESSES 
(1) 003502 105277 176212 INCB §@HRXDBUF :TEST UPPER BYTE THIS REGISTER 
(1) 003506 000401 BR +4 SIF OK JMP AR 
(1) 003510 104004 ERROR 4 :CHECK DEVICE REG ADDRESSES 
(1) 003512 012737 000006 000004 MOV 46,084 ;RESTORE TRAPCATCHER 
(1) 003520 012737 000000 000006 MOV #0,a#6 : 
8171 ri: THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
(5) ° 3 Rkeeeeeeeeeeeeeeeeeeeeeeeeeaeeaeaaeraeneeareeeeeeeeereneeeeeeees 
(4) 003526 000004 TST3: SCOPE 
(1) 003530 012737 017362 000004 MOV #TRPREG, a8 :SETUP TRAPCATCHER 
(1) 003536 016737 174536 000006 MOV PR6,a8%6 ; 
(1) 003544 105277 176152 INCB = @PARCSR sTEST THIS REG 
(1) 003550 000401 BR +4 SIF OK JMP AROUND ERROR 
(1) 003552 104004 ERROR 4 >CHECK DEVICE REG ADDRESSES 
(1) 003554 105277 176144 INCB @HPARCSR :TEST UPPER BYTE THIS REGISTER 
(1) 003560 000401 BR +4 [IF OK JMP AR 
(1) 003562 104004 ERROR 4 sCHECK DEVICE REG ADDRESSES 
(1) 003 012737 000006 000004 MOV 46,084 ;RESTORE TRAPCATCHER 
1) 003572 012737 000000 000006 MOV 40,046 : 
8172 z:THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
(5) ° PUTT TTT TTT TTTTTTTTTTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT Tt 
(4) 003600 000004 TS14: SCOPE 
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CNDUQA.M11 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0033 
(1) 003602 012737 017362 000004 MOV #TRPREG, a44 :SETUP TRAPCATCHER 
(1) 003610 016737 174464 000006 MOV R6,a%6 ; 
(1) 003616 105277 176104 INCB  aTXCSR sTEST THIS REG 
(1) 003622 0004 BR +4 SIF OK JMP AROUND ERROR 
(1) 003624 104 ERROR 4% CHECK DEVICE REG ADDRESSES 
(1) 003626 105277 176076 INCB  @HTXCSR ;TEST UPPER BYTE THIS REGISTER 
(1) 003632 000401 BR i z1F OK JMP AROUND ERROR 
(1) 003634 104 ERROR :CHECK DEVICE REG ADDRESSES 
(1) 003636 012737 000006 000004 MOV *%. aes ZRESTORE TRAPCATCHER 
(1) 003644 012737 000000 000006 MOV 40.086 : 
8175 rTHIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
(5) ° PITITITITITIIL TLL TLL TTI TLL LTT Litt LLL iT iT Titi ein 
4) 003652 000004 TST5: SCOPE 
(1) 003654 012737 017362 000004 MOV #TRPREG, ae sSETUP TRAPCATCHER 
(1) 003662 016737 174412 000006 MOV PR6,a06 ; 
(1) 003670 105277 176036 INCB  aTXOBUF :TEST THIS REG 
(1) 003674 000401 BR +4 sIF OK oe ocr ee ERROR 
(1) 003676 104004 ERROR 4 K DEVICE REG ADDRESSES 
(1) 003700 105277 176030 INCB @HTXDBUF TEST uPbER grre THIS REGISTER 
(1) 003704 000401 BR +h SIF OK JMP AROUND ERROR 
(1) 003706 104004 ERROR 4% nen HECK DEVICE REG ADDRESSES 
(1) 003710 012737 000006 000004 MOV 46,086 :RESTORE TRAPCATCHER 
a ? 003716 012737 000000 000006 MOV #0,a%6 : 
B74 ;3BUS DRIVER TEST 
Bi 76 . g HeREReaeeeeReReeeeerereeeeeeeeeeareraneeneaeeeeeereeeeeeeeeeers 
(3) 003724 000004 TST6: SCOP 
8177 003726 022777 000000 175776 CMP #0,aTXDBUF 
8178 003734 1 BEQ +4 
8179 003736 104 ERROR 4 READING TXDBUF SHOULD BE ALL ZERO'S 
8180 scTHIS TEST PERFORMS MASTER RESET TESTING & 
(1) T: TESTING OF READ/WRITE BIT DTR 
(5) 23 Seeeeeeeeterereeeeeeeeeeeeeeeeeeaneeaaneneaneeeeeeereeeeeeeeeet 
4) 003740 000004 TST7: SCOPE 
(1) 003742 052777 000002 175742 BIS #DTR,ARXCSR :SET THIS BIT 
(1) 003750 032777 000002 175734 BIT #D0TR.@RXCSR “TEST THIS BIT 
(1) 003756 001001 BNE +4 :BR IF 4" 
(1) 003760 104004 ERROR 4 :THIS BIT SHOULD BE SET 
(1) 003762 042777 000002 175722 BIC #DTR,ARXCSR :CLR THIS BIT 
(1) 003770 032777 000002 175714 BIT #DTR,ARXCSR *TEST THIS BIT 
(1) 003776 001401 BEQ +4 “BR IF '0"' 
(1) 004000 104004 ERROR & ZTHIS BIT SHOULD BE CLR 
(1) :NOW SET THIS BIT 
(1) 004002 052777 000002 175702 BIS #TR ARKCS 
(2) 004010 052777 000400 175710 BIS #MRESET,a@TXCSR ;:MASTER RESET 
1) 3s CHECK EXISTANCE OF OPTIONAL CLEAR JUMPER 
(1) 004016 105767 175127 ‘$18 = OPTCLR :TEST FLAG 
(1) 004022 100006 BPL 1$ ‘OPTIONAL CLR JUMPER IS NOT IN 
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(1) 004024 032777 000002 175660 BIT #DTR,ARXCSR sTEST THIS BIT 

(1) 004032 001401 BEQ +4 :BR IF ‘0 

(1) 004034 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 

(1) 004036 000405 BR 2$ 7 UMP Al 

(1) 004040 032777 000002 175644 1$: BIT MDTR,@RXCSR —— STEST THIS BIT 

(1) 004046 001001 BNE +4 7BR IF *4 

(1) 004050 104004 ERROR 4 :CHECK OUT OPTIONAL CLR JUMPER 

(a) 004052 000240 2$: 

8181 zz: THIS TEST PERFORMS MASTER RESET TESTING & 

a) 3 TESTING OF READ/WRITE BIT RTS 

(5) s eeeeeekeeeneeeeereereeetecerreereneteeneneneeeneeeeteeenenerens 

(4) 004054 000004 TST10: Scop 
(1) 004056 052777 000004 175626 BIS #RTS ,ARXCSR :SET THIS BIT 
(1) 004064 032777 000004 175620 BIT #RTS ,ARXCSR :TEST THIS BIT 
(1) 004072 001001 BNE +4 sBR IF 4" 
(1) 004074 104004 ERROR & :THIS BIT SHOULD BE SET 
(1) 004076 042777 000004 175606 BIC #RTS ,ARXCSR :CLR THIS BIT 
(1) 004104 032777 000004 175600 BIT #RTSARXCSR :TEST THIS BIT 
(1) 004112 001401 BEG +4 7BR IF '0" 
(1) 004114 104004 RROR & :THIS BIT SHOULD BE CLR 
(1) eNOU SET THIS BIT 
(1) 004116 052777 000004 175566 BIS #RTS ARXCSR 
(2) 004124 052777 000400 175574 ats WMRESET,@TXCSR ;MASTER RESET 
(1) Z:CHECK EXISTANCE OF OPTIONAL CLEAR JUMPER 
(1) 004132 105767 175013 t$18 = OPTCLR :TEST FLAG 
(1) 004136 100006 BPL 1$ [OPTIONAL CLR JUMPER IS NOT IN 
(1) 004140 032777 000004 175544 BIT #RTS ,ARXCSR TEST THIS BIT 
(1) 004146 001401 BEQ +4 :BR IF "0" 
(1) 004150 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
(1) 004152 000405 BR 2$ 7 UMP 
(1) 004154 032777 000004 175530 1$: BIT #RTS,ARXCSR “TEST THIS BIT 
(1) 004162 001001 BNE + sBR IF ‘4" 
(1) 004164 104004 ERROR & 3CHECK OUT OPTIONAL CLR JUMPER 
aa) 004166 000240 2$: NOP 
8182 zWAIT FOR CABLE DELAYS 
(1) FRAAAAAKAAAAAAAEAAAAAAEAAAAEREREEEEAEEE 
(1) [MODIFY “'HOLD:"* ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) SREAAEAAAEEAERAAAETEREEAEAEARARAAARERERE 
(1) 006170 016702 174724 V HOLD,R2 ;SET DELAY TIME 
(1) 004174 005302 DEC R2 
(1) 004176 001376 BNE -2 WAIT THIS TIME 
(1) 70K NOW FALL rHRd AND CONTINUE TESTING.......+0. 
(1) sEXIT STAGE LEFT....CH 
8183 THIS TEST PERFORMS MASTER RESET TESTING & 
a $3 TESTING OF READ/WRITE BIT STD 
(5) PTT TTTTITT TT TT TTT TTT TTT TTT CTT TT TUTTE TT TTT TTT TCT TTT TT TTT TT TTT TT 
4) 004200 000004 T8111: SCOPE 
(1) 904202 052777 000010 175502 BIS #STD,@RXACSR :SET THIS BIT 
(1) 004210 032777 000010 175474 BIT #STD,a@RXCSR sTEST THIS BIT 
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(1) 004216 001001 BNE +4 sBR IF "1" 

(1) 004 104004 ERROR 4 :TH 1s BIT SHOULD BE SET 
(1) 004 Q42777 000010 175462 BIC #STD,ARXCSR :CLR THIS BIT 

(1) 004 32777 000010 175454 BIT #STD,@RXCSR 3TEST THIS BIT 

(1) 004236 001401 BEQ +4 <BR IF 

(1) 004240 104004 ERROR " :THIS BIT SHOULD BE CLR 
(1) -NOW SET THIS BIT 

(1) 004242 052777 000010 175442 BIS #stD @RXCSR 

(2) 004250 052777 000400 175450 BIS RESET,@TXCSR ;MASTER RESET 

(1) 7; CHECK ER TSTANCe OF OPTIONAL CLEAR JUMPER 

(1) 004256 105767 174667 T$18 © OPTCLR :TEST FLAG 

(1) 004262 100006 BPL 1$ ‘OPTIONAL CLR JUMPER IS NOT IN 
(1) 004264 032777 000010 175420 BIT #STD,@RXCSR :TEST THIS BIT 

(1) 004272 001401 BEQ +4 ‘BR IF "0" 

(1) 004274 104004 ERROR 4 ;CHECK OUT MASTER RESET LOGIC 
(1) 004276 000405 BR 2$ :JMP AROUN: 

(1) 004300 032777 000010 175404 1$: BIT #STD,@RXCSR “TEST THIS BIT 

(1) 004306 001001 BNE +4 sBR IF “T"' 

(1) 004310 104004 ERROR 4 :CHECK OUT OPTIONAL CLR JUMPER 
a) 004312 000240 2s: NOP 
8184 z:THIS TEST PERFORMS MASTER RESET TESTING & 

a) 33 TESTING OF READ/WRITE BIT SYNSCH 

(5) ITT TIITTIITI LITT TI ttt TTI titi itiiiitiiiitiiiiiiiiiiiiiiiiiit 
4) 004314 000004 T8112: SCOPE 

(1) 004316 052777 000020 175366 BIS WSYNSCH,@RXCSR ;:SET THIS BIT 

(1) 004324 032777 000020 175360 BIT #SYNSCH.@RXCSR :TEST THIS BIT 

(1) 004332 001001 BNE +6 sBR IF “4"* 

(1) 004334 104004 ERROR 4 :THIS BIT SHOULD BE SET 
(1) 004336 042 000020 175346 BIC #SYNSCH,@RXCSR :CLR THIS BIT 

(1) 004344 032777 000020 175340 BIT WSYNSCH@RXCSR |; TEST THIS BIT 

(1) 004352 001401 BEQ +4 <BR IF "0" 

(1) 004354 104004 ERROR 4 :THIS BIT SHOULD BE CLR 
(1) :NOW SET THIS 

(1) 004356 052777 000020 175326 BIS #SYNSCH,@RXCSR 

(2) 004364 036777 000400 175334 BIS #MRESET.aTXCSR ;:MASTER RESET 

(1) 004372 032777 000020 175312 BIT WSYNSCH,@RXCSR TEST THIS BIT 

(1) 004400 001401 BEQ +4 :BR IF "0 

(1) 004402 104004 ERROR 4% 3CHECK OUT MASTER RESET LOGIC 
8185 z:THIS TEST PERFORMS MASTER RESET TESTING & 

b 33 TESTING OF READ/WRITE BIT DSINTE 

(5) jteeeeedeeceneneneerereneenerecncneneceneenenenenneseceenerenees 
4) 004404 000004 18113: SCOPE 

(1) 004406 052777 000040 175276 BIS #DSINTE,@RXCSR ;SET THIS BIT 

(1) 004414 032777 000040 175270 BIT WOSINTE,ARXCSR :TEST THIS BIT 

(1) 004422 001001 BNE +4 7BR IF “tT 

(1) 004426 104004 ERROR THIS BIT SHOULD BE SET 
(1) 004426 042777 000040 175256 BIC #DSIN TE -@RXCSR SCLR THIS BIT 

(1) 0044 32777 000040 17525 BIT DSINTE,aRXCSR TEST THIS BIT 

(1) 004442 001401 BEQ +h sBR IF "0" 
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(1) 004444 104004 ERROR 4 :THIS BIT SHOULD BE CLR 
(1) “NOW SET THIS BIT 
(1) 004446 052777 000040 175236 BIS #OSINTE ,ARXCSR 
(2) 004454 052777 000400 175244 BIS RESET,@TXCSR ;MASTER RESET 
(1) 004462 032777 000040 175222 BIT #DSINTE,@RXCSR :TEST THIS BIT 
(1) 004470 001401 BEQ +4 7BR IF "0" 
(1) 004472 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
8186 z:THIS TEST PERFORMS MASTER RESET TESTING & 
(1) S: TESTING OF READ/WRITE BIT RINTEN 
(5) PITTI ITIL TILT IT TIT Ti Litt it tir tit iii ii iii iit iit iit iti iti iii 
(4) 004474 000004 TST14: SCOPE 
(1) 004476 052777 000100 175206 BIS WRINTEN,@RXCSR ;:SET THIS BIT 
(1) 004504 032777 000100 175200 BIT WRINTEN,@RXCSR :TEST THIS BIT 
(1) 004512 001 BNE +6 zBR IF "4" 
(1) 004514 004 ERROR 4 :THIS BIT SHOULD BE SET 
(1) 004516 77 000100 175166 BIC WRINTEN,@RXCSR CLR THIS BIT 
(1) 004524 032777 000100 175160 BIT WRINTEN,@RXCSR :TEST THIS BIT 
(1) 004532 001401 BEQ +4 sBR IF ‘0° 
(1) 004534 104004 ERROR ;THIS BIT SHOULD BE CLR 
(1) -NOW SET THIS BIT 
(1) 004536 052777 000100 175146 BIS #RINTEN, @RXCSR 
(2) 004544 052777 000400 175154 BIS WMRESET.@TXCSR ;MASTER RESET 
(1) 004552 032777 000100 175132 BIT WRINTEN,A@RXCSR :TEST THIS BIT 
(1) 004560 001401 BEQ +4 sBR IF ‘0’ 
(1) 004562 104004 ERROR 4 3CHECK OUT MASTER RESET LOGIC 
8187 3:THIS TEST PERFORMS MASTER RESET TESTING & 
3 sz TESTING OF READ/WRITE BIT STPSYN 
(5) Z ITI TITITII LLL L LLL ILLi LLL iL LLL Lt Litt ii 
4) 004564 000004 TST15: SCOPE 
(1) 566 052777 000400 175116 BIS #STPSYN,ARXCSR ;SET THIS BIT 
(1) 006574 032777 000400 175110 BIT #STPSYN.ARXCSR :TEST THIS BIT 
(1) 602 001001 BNE +4 sBR IF °"" 
(1) 104004 ERROR 4 :THIS BIT SHOULD BE SET 
(1) 042777 000400 175076 BIC #STPSYN,A@RXCSR :CLR THIS BIT 
(1) 004614 032777 000400 175070 BIT #STPSYN.@RXCSR TEST THIS BIT 
(1) 004622 001401 Q .+ : "0" 
(1) 4 104004 ERROR 4 ZTHIS BIT SHOULD BE CLR 
(1) SNOW SET THIS BIT 
(1) 004626 05 777 000400 175056 BIS #STPSYN, A@RXCSR 
(2) 0046 52777 000400 175064 BIS WMRESET.a@TXCSR ;MASTER RESET 
(1) 004642 032777 000400 175042 BIT WSTPSYN.ARXCSR :TEST THIS BIT 
(1) 004650 001401 BEQ + <BR IF "0" 
(1) 004652 104004 ERROR 4 3CHECK OUT MASTER RESET LOGIC 
8188 Zz THIS TEST PERFORMS MASTER RESET TESTING & 
(1) S:TESTING OF READ/WRITE BIT BREAK 
(5) ° £ POTTS TTSTTTTTTTTTTTTTTTTTTTTIT TTT TTT TTT TTT iT Titi iti tit 
(4) 004654 000004 1$116: SCOPE 











. 68 


CNDUQ=A0 MACY11 30(1046) 14=DEC-82 09:56 PAGE 62-23 | 
CNDUQA.M11 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0037 

(1) 004656 052777 000001 175042 BIS WBREAK,@TXCSR  ;SET THIS BIT 

a) 004664 032777 000001 175034 BIT WBREAK,@TXCSR | :TEST THIS BIT 

(1) 004672 001001 BNE +4 :BR IF ‘4 

(1) 004674 104004 ERROR -THIS BIT SHOULD BE SET 

(1) 004676 042777 000001 175022 BIC MBREAK,@TXCSR CLR THIS BIT 

(1) 004704 032777 000001 175014 BIT WREAK ,@TXCSR = TEST THIS BIT 

(1) 004712 001401 BEQ +4 <BR IF ‘0 

(1) 004714 104004 ERR 4 sTHIS BIT SHOULD BE CLR 

(1) “NOW SET THIS BIT 

(1) 004716 052777 000001 175002 BIS #BREAK ,ATXCSR 

(2) 004724 052777 000400 174774 BIS WMRESET,@TXCSR ;MASTER RESET 

(1) 004732 032777 000001 174766 BIT WBREAK,@TXCSR TEST THIS BIT 

(1) 004740 001401 BEQ +6 :BR IF '0"' 

a ) 004742 104004 ERROR 4 3CHECK OUT MASTER RESET LOGIC 

8189 zTHIS TEST PERFORMS MASTER RESET TESTING & 

CV SI: TESTING OF READ/WRITE BIT HDXEN 

(5) BY ITI TITISILITI TILL tLi titi iii iiiitiiitiiiiiiiiiiiiiit 

(4) 004744 000004 1ST17: SCOPE 

(1) 006746 052777 000010 174752 BIS WHDXEN,@TXCSR  ;SET THIS BIT 

(1) 006754 032777 000010 174744 BIT #HDXEN@TXCSR =: TEST THIS BIT 

(1) 004762 001001 BNE +4 sBR IF ‘4"" 

(1) 0046764 104004 ERROR 4 :THIS BIT SHOULD BE SET 

(1) 004766 042777 000010 174732 BIC #HDXEN,@TXCSR CLR THIS BIT 

(1) 004774 032777 000010 174724 BIT #HDXEN,@TXCSR ©; TEST THIS BIT 

(1) 902002 1401 BEQ +4 : 0" 

(1) 005 ;THIS BIT SHOULD BE CLR 

(1) NOW SET THIS BIT 

(1) 005006 052777 000010 174712 BIS #HDXEN, @TXCSR 

(2) 005014 032777 000400 174704 BIS #MRESET,@TXCSR ;MASTER RESET 

(1) 005022 032777 000010 174676 BIT WHDXEN,@TXCSR  :TEST THIS BIT 

(1) 005030 001401 BEQ +4 :BR IF "0" 

a 005032 104004 ERROR & 3CHECK OUT MASTER RESET LOGIC 

8190 zTHIS TEST PERFORMS MASTER RESET TESTING & 

(1) S:TESTING OF READ/WRITE BIT SEND 

(5) F | Kteeetketeeeeeeeeeeeeeeeereeeeeaeananeaneanerereneeeeeeeereeeer 

4) 005034 000004 TST20: SCOPE 

(1) 005036 052777 000020 174662 BIS #SEND,@TXCSR =; SET THIS BIT 

(1) 005044 032777 000020 174654 BIT #SEND.aTXCSR |: TEST THIS BIT 

(1) 005052 001001 BNE +4 ° 3BR IF “41" 2 

(1) 005054 104004 ERROR 4% :THIS BIT SHOULD BE SET 

(1) 005056 04 777 000020 174642 BIC #SEND,aTXCSR CLR THIS BIT 

(1) 064 32777 000020 174634 BIT WSEND.aTXCSR =: TEST THES BIT 

(1) 072 001401 + 7BR IF "0" 

(1) 005074 104004 ERROR & sTHIS BIT SHOULD BE CLR 

(1) “NOW SET THIS BIT 

(1) 005076 052777 20 174622 BIS #SEND,aTXCSR 

(2) 005104 052777 174614 BIS @MRESET,a@TXCSR ;MASTER RESET 

(1) 00511 777 20 174606 BIT #SEND,aTXCSR TEST THIS BIT 

(1) 0051 1401 BEQ +4 BR IF "0" 

(1) 005122 104 ERROR & 3CHECK OUT MASTER RESET LOGIC 
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33THIS TEST PERFORMS MASTER RESET TESTING & 
23 TESTING OF READ/WRITE BIT DNAINTE 


005212 104004 ERROR 4 CHECK OUT MASTER RESET LOGIC 
33THIS TEST PERFORMS MASTER RESET TESTING & 


) 

1 

) TUT TTTTTTTTIT TTT TTT TTT TTT TTTTTT TTT TTT TTT iit T ttt itt 
? 005124 000004 7121: SCOPE 

) 005126 052777 000040 174572 BIS #ONAINTE ,a@TXCSR ; se¥ THIS BIT 

> 005134 032777 000040 174564 BIT WONAINTE ,aTXCSR :TEST THIS BIT 

)» 005142 001001 BNE +4 :BR IF "4" 

) 005144 104004 ERROR 4 THIS BIT SHOULD BE SET 
) 005146 042777 000040 174552 BIC #ONAINTE,@TXCSR :CLR THIS BIT 

) 005154 032777 000040 174544 BIT #DNAINTE ,aTXCSR :TEST THIS BIT 

» 005162 001401 EQ +4 : > 

» 005164 104 ERROR - zTHIS BIT SHOULD BE CLR 
) “NOW SET THIS BIT 

) 005166 052777 000040 174532 BIS #DNAINTE ,@TXCSR 

> 005174 052777 000400 174524 BIS #MRESET,@TXCSR ;MASTER RESET 

» 005202 032777 000040 174516 BIT #ONAINTE ,@TXCSR ;TEST THIS BIT 

005210 001401 BEQ +4 :BR IF ° 

) 

2 
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33 TESTING OF READ/WRITE BIT TXINTE 
) bt hab bb tahiabhbhiehiahh hihi hhbhihihhihihbhhbhbbbhbihbhhbhbhihhs 
) 005214 000004 78122: SCOPE 
1) 005216 052777 000100 174502 BIS #TXINTE,@TXCSR ;SET THIS BIT 
1) 005224 032777 000100 174474 BIT #TXINTE -ATXCSR ‘TEST THIS BIT 
1) 005232 001001 BNE +4 7BR IF “T" 
1) 005234 104004 ERROR 4 :THIS BIT SHOULD BE SET 
1) 005236 042777 000100 174462 BIC #TXINTE,@TXCSR ;:CLR THIS BIT 
1) 005244 032777 000100 174454 BIT #TXINTE,@TXCSR TEST THIS BIT 
1) 005252 001401 BEQ +4 :BR IF "0" 
1) 005254 104004 ERROR 4% :THIS BIT SHOULD BE CLR 
1) sNOW SET THIS BIT 
1) 005256 052777 000100 174442 BIS #TXINTE ,@TXCSR 
2) 005264 052777 000400 174434 BIS #MRESET.@TXCSR ;MASTER RESET 
1) 005272 032777 000100 174426 BIT MTXINTE,@TXCSR :TEST THIS BIT 
1) 005300 001401 REQ +4 <BR IF '0" 
0 005302 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
8 95 z:TEST MAINT MODE BIT 0 
8195 [THIS TEST PERFORMS MASTER RESET TESTING & 
1) 33 TESTING OF READ/WRITE BIT BITI1 
5) eeeeeetheeeeeeeeeeeeeeeeeteeeeeeareaeaeeereaeeeeeenreeerereeeeee 
4) 005304 000004 18123: SCOPE 
1) 005306 052777 000 174412 BIS #B1T11, aTXCSR :SET THIS BIT 
1) 005314 032777 000 174404 BIT #B1T11 r@TXCSR “TEST THIS BIT 
1 ied L004 BREOR * i THIS BIT SHOULD BE SET 
1) 005326 besere 004000 174372 BIC ‘ee oe SCLR THIS BIT 





3 
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JENDUQA.A11 30-0CT=82 12:11 INITIALIZE THE COMMON TAGS 
| (1) 005334 032777 004000 174364 BIT #BITI1,aTXCSR TEST THIS BIT 
' €1)- 005342 ~=007401 BEQ +4 BR IF "0" 
/ §€1) 005344 «104004 ERROR 4% ;THIS BIT SHOULD BE CLR 
(1) “NOW SET THIS BIT 
| C1) 005346 052777 904000 174352 BIS. #BITI1.aTXCSR 
(2) 005354 052777 000400 174346 BIS #MRESET,aTXCSR ;MASTER RESET 
| = <1) 005 032777 004000 174336 BIT #BITI1,aTXCSR TEST THIS BIT 
(1) 005370 001401 BEQ +4 7BR IF ‘'0' 
a ) 005372 104004 ERROR 4% 3CHECK OUT MASTER RESET LOGIC 
B99 ::TEST MAINT MODE BIT 1 
8198 +: THIS TEST PERFORMS MASTER RESET TESTING & 
{1} T: TESTING OF READ/WRITE BIT BITI2 
(5) Hy bd Rekehekekeeeeeeeeeeeeeeeeteteeeatenarereeeeaeeeneenereeeeneneer 
(4) 005374 000004 TST24: SCOPE 
(1) 005376 052777 010000 174322 BIS #BIT12,aTXCSR  ;SET THIS BIT 
(1) 005404 032777 010000 174314 BIT #BIT12.aTXCSR :TEST THIS BIT 
(1) 005412 00100 BNE +4 sBR IF “4"" 
(1) 005414 104 ERROR 4 :THIS BIT SHOULD BE SET 
(1) 005416 042777 010000 174302 BIC #B1T12,aTXCSR CLR THIS BIT 
(1) 005424 032777 010000 174274 BIT WBIT12.aTXCSR TEST THIS BIT 
(1) 005432 00140 BEQ +4 : “or 
(1) 005434 104 ERROR 4% :THIS BIT SHOULD BE CLR 
(i 54 52777 01 174 as Sere ea CSR 
(2) sere $3077 $008 174384 BIS amneset @TXCSR ;MASTER RESET 
(1) 005452 032777 010000 174246 BIT #BITI2,aTXCSR TEST THIS BIT 
(1) 005460 00140 BEQ +4 7BR IF "0" 
a 5462 104 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
8199 zzTHIS TEST PERFORMS MASTER RESET TESTING & 
a S: TESTING OF READ/WRITE BIT CLK 
(5) Fi ateeeeeeene RAAATCAKSAAAATASASSASASATAEAAAAAAAAAARERAAALERAAAAEAEAEAEEEE 
4) 005464 000004 TST25: SCOPE 
(1) 005466 052777 020000 174232 BIS #CLK,@TXCSR :SET THIS BIT 
(1) 005474 032777 020000 174224 BIT #CLK.aTXCSR “TEST THIS BIT 
(1) 005502 001001 BNE +4 sBR IF “4" 
(1) 005504 ERROR :THIS BIT SHOULD BE SET 
(1) 005506 042777 020000 174212 BIC #CLK,a@TXCSR sCLR THIS BIT 
(1) 005514 032777 020000 174204 BIT #CLKOTCSR 3TEST THIS BIT 
(1) 005522 001401 BEQ + :BR IF "0" 
(1) 0055 ERROR 4% ;THIS BIT SHOULD BE CLR 
(1) “NOW SET THIS BIT 
(1) 005526 052777 020000 174172 1S #CLK,@TXCSR 
(2) 0055 52777 00 176164 BIS #MRESET,@TXCSR ;MASTER RESET 
(1) 005542 032777 020000 174156 BIT CLRA@TECSR TEST THES, BIT 
(1) 0055 1401 BEQ + :BR IF "0" 
(1) 5552 104004 ERROR % 3CHECK OUT MASTER RESET LOGIC 
8200 zzTHIS TEST PERFORMS MASIER RESET TESTING & 
(1) TI TESTING OF READ/WRITE BIT MTIDATA 





SEQ 0039 
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CHOUGA.AT1 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0040; 
(1) | 
(5) RRRRRREReReReReeeeeeeeedeeeeeeeaeereeaaaeeeeeateeeteneeeeeeeeer | 
(4) 005554 000004 +8126: SCOPE 
(1) 005556 052777 040000 174142 BIS #MTDATA,@TXCSR ;:SET THIS BIT 
(1) 005564 032777 040000 174134 BIT #MTDATA,@TXCSR :TEST THIS BIT | 
(1) 005572 001001 BNE +4 sBR IF ‘%4"" 
(1) 005574 ERROR 4 :THIS BIT SHOULD BE SET 
(1) 005576 042 040000 174122 BIC #MTDATA,@TXCSR ;=CLR THIS BIT 
(1) 005 032777 040000 174114 BIT WMIDATA,aTXCSR :TEST THIS BIT 
(1) 005612 001401 BEQ +4 :BR IF ‘0"' 
(1) 005614 104004 ERR 4 :THIS BIT SHOULD BE CLR 
(1) NOW SET THIS BIT 
(1) 005616 052777 040000 174102 bis #MTDATA, @TXCSR 
(2) 005624 052777 000400 174074 BIS WMRESET.@TXCSR ;MASTER RESET 
(1) 005632 032777 040000 174066 BIT #MTDATA, aTXCSR sTEST THIS BIT 
(1) op eees 001401 BEQ +4 3 ee ae 
(1) 005642 104004 ERROR 4 :CHECK OUT MASTER RESET LOGIC 
8201 zz THIS TEST VERIFYS THAT INIT (RESET) CLEARS BITS IN THE 
8202 ZERKCSR & TXCSR | 
8204 peteteneneeneneneeteneneerereretetneneneneenerereneeteneteeretes 
(3) 005644 000004 sisse SCOPE 
8205 005646 012777 177777 174036 MOV #177777,@RXCSR ;SET ALL POSSIBLE BITS 
8206 005654 012777 177777 174044 MOV #177777, aTXCSR :DITTO 
8207 005662 99009 RESET 
8208 005 j 000300 MIPS #300  ;RESTORE NON INTERRUPT STATUS 
8209 005670 017701 174016 MOV @RXCSR,RI SAVE 
Bee opes00 SOsree teocs Pele SBTEL A <1S THE GETTGNAL CLR JUMPER ON ? 
8212 005704 100402 BMI 1 :Y | 
8213 005706 042701 000016 BIC #16,R1_ :CLR THE NON RESETABLE BITS 
8214 095712 042701 073000 1$: BIC #073000,R1 zCLR ALL NON-CLEARABLE BITS | 
8215 005716 005701 TST RI sARE THEY ALL 0 ? 
Bois ee 904004 PeROR :ALL SPECIFIED BITS SHOULD BE CLEAR | 
8218 005724 042702 002200 BIC #002200, R2 :CLEAR ALL NON=CLEARABLE BITS 
8219 005730 005702 TST Re sARE THEY ALL 0 ? 
8220 005732 001401 
8221 005734 104 ERROR ss ALL SPECIFIED BITS SHOULD BE CLEAR 
8222 3WAIT FOR CABLE BELA 
(1) eae dh on Bs EI 
(1) [MODIFY “HOLD:"’ ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
33 5736 016702 173156 Ope ry ye roe penne 
V HOLD,R2 ;SET DELAY TIME 
(1) 005742 005302 DEC R 
(1) 005744 001376 BNE =2 WAIT THIS TIME 
(1) 70K NOW FAL L THRU AND CONTINUE TESTING......+++0. 
as TEXIT STAGE LEFT oe CHINNNG! 
8224 z:THIS TEST PERFORMS MASTER RESET TESTING & 
(1) 33 TESTING OF WRITE ONLY BIT MRESET 
(5) PPIITITITITITITITITITI TTT ITT ttiiiiiiiiiiiiiiti iit iiit titty 
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(4) 005746 000004 TST30: SCOPE 
(1) 005750 052777 000400 173750 BIS WMRESET,@TXCSR ;TRY 10 SET THIS BIT 
(1) 005756 032777 000400 173742 BIT WMRESET.@TXCSR TEST THIS BIT 
(1) 005764 001401 BEQ +4 “BR IF ‘0°’ 
(1) 005766 104004 ERROR 4 -THIS BIT SHOULD NOT BE SET 
(2) 005770 052777 000400 173730 BIS AMRESET, @TXCSR MASTER RESET 
(1) 005776 032777 000400 173722 BIT WMRESET,@TXCSR TEST THIS BIT 
(1) 001401 BEQ +4 1BR IF + 
(1) 104004 ERROR 4 THIS BIT SHOULD NOT BE SET 
C1) CHECK MASTER RESET LOGIC 

8225 :;THIS TEST VERIFYS THAT THE RXCSR & TXCSR CAN BE BYTE ADDRESSED (DATOB) 

82 7 «ee ReRERReeeeeeeeeeeeeeeeeeeeeeeeaaeeaeeeeeeneeeeeeeeeeeeeeeete 
@) 006010 000004 TS131: SCOPE 

8228 006012 052777 000400 173706 BIS WMRESET,@TXCSR ;MASTER RESET 

8229 006020 105767 173125 TST8 OPTCLR HS THE OPTIONAL CLR JUMPER ON ? 

8230 006024 100405 BMI 1 

8231 006026 012777 000000 173656 MOV #0,aR axcsk. :CLR OUT NON RESETABLE BITS 

8232 006034 005777 173652 TST @RXCSR_ ;CLR OUT DSC BY READING R 

8233 006040 152777 000001 173646 1$: BISB #eiTo 0, a@HRXCSR ;SET STRIP SYNC UPPER BYTE 

8234 006046 017701 173640 MOV aRXx 1 x 

8235 006052 022701 000400 CMP #400,R1 ;TEST anise. 

8236 006056 001401 BEQ +4 

8237 006060 104004 ERROR 4 sONLY STRIP oe SHOULD BE SET 

8238 006062 105077 173624 CLRB @RXCSR :CLR LOWER BYTE 

8239 006066 017701 173620 MOV @RXCSR,_RI sSAVE RXCSR 

8240 006072 022701 000400 CMP #400,R1 : TEST RXCSR 

8241 006076 001401 BEQ + 

8242 006100 104004 ERROR 4 sONLY STRIP SYNC SHOULD BE SET 

8243 006102 052777 000400 173616 BIS #MRESET @TXCSR ;MASTER RESET 
44 006110 152777 000040 173612 BISB8 #BITS,aHTXCSR :SET MAINT CLK UPPER BYTE 

8245 006116 017701 173604 MOV @TXCSR,R1 SSAVE TXCSR 

8246 006122 042701 002000 BIC 1Tw,R1 [CLR BIT WINDOW (DEPENDENT 

8247 H315 C¢ CONNECTOR EXISTANCE) 

8248 006126 022701 020200 cMP #20200, oe :TEST TXCSR 

8249 006132 001401 BEQ +4 

8250 006134 104004 ERROR 4 ONLY MAINT cL BIT & TXDONE SHOULD BE SET 

8251 006136 105077 173564 CLRB  aTXCSR :CLR LOWER 

82532 006142 017701 173560 MOV aTxCsR Ri CATE XCSR 

825 006146 042701 002000 BIC W,R1 CLR BT WINDOW (DITTO) 

8254 006152 022701 020200 CMP #30200" R1 STEST TXCSR 

8255 006156 001401 BEQ +4 

8256 006160 ERROR 4 ONLY MAINT CLK BIT & TXDONE SHOULD BE SET 

8257 3:THIS TEST PERFORMS MASTER RESET TESTING & 

8258 S: TESTING OF READ ONLY BIT BITW 

8298 33MAINT INTERNAL 

82 1 PUTT TTT TTT TTT TTT TTT TT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT 
(3) 006162 000004 18132: SCOPE 

8262 006164 012777 044001 173534 MOV WMINTIMTDATAIBREAK,@TXCSR | :SET MAINT INT. BREAK, 

8264 006172 032777 002000 173526 BIT #BIlTW,aTXCSR  ;TEST BTW 
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| CNDUQA.M11 30-OCT-82 12:1 INITIALIZE THE COMMON TAGS SEQ 0042 
8265 006200 001001 BNE +4 ! 
8266 006202 104004 ERROR 4 :B1T WINDOW SHOULD BE SET 
8267 006204 042777 040000 173514 BIC #MTDATA, aTXCSR 
8268 006212 013702 001132 MOV a#1132,R2 
8269 006216 005302 1$: DEC 
8270 006220 00137 BNE 1$ 
8271 006222 032777 002000 173476 BIT #B1TW,aTXCSR 
8272 006230 001401 BEQ +4 
8273 006232 104004 ERROR 4 :B1T SHOULD BE CLR 
8274 “NOW SET THE MTDATA 
8275 006234 052777 040000 173464 BIS #MTDATA, ATX XCSR 
8276 006242 052777 000400 173456 BIS WMRESET.aTXCSR ;MASTER RESET 
8277 006250 052777 001 173450 BIS #MINT 'BREAK, a@TXCSR 
8278 36 013702 001132 MOV a#1132,R2 
8279 006262 005302 2s: DEC 
8280 006264 001376 BNE 2$ 
8281 006266 032777 002000 173432 BIT #BITW,aTXCSR 
8282 006274 001401 BEQ +4 
8283 006276 104004 ERROR 4 :BITW SHOULD BE CLR BY MASTER RESET 
8284 3;THIS TEST PERFORMS MASTER RESET TESTING & 
8285 S:TESTING OF READ ONLY BIT BITW 
8286 33MAINT EXTERNAL 
8288 tt biabibbibiahiehbhhbhbhhbhbhbhhbhbhbhhhhbhbhbhhbhbhbhhbhehbhhihiy 
(3) 006300 000004 18133: SCOPE 
8289 TEST TO SEE IF EXTERNAL MODEM BYPASS CONNECTOR 
90 “1S ON (H315)....1F "NO JUMP AROUND TEST 
1 006302 105767 172645 TSTB JAR Y 
8292 006306 100036 BPL 1$ :1T IS NOT ON 
8293 006310 012777 050001 173410 MOV PREXTIMTBATALBREAK, OTXCSR zSET MAINT EXT.,BREAK, 
8596 006316 032777 002000 173402 BIT #B1TW,aTXCSR TEST BITW 
8296 006324 001001 BNE +4 
8297 006326 104004 ERROR 4 :B1T WINDOW SHOULD BE SET 
8298 006330 042777 040000 173370 BIC #MTDATA, aTXCSR 
8299 006336 032777 002000 173362 BIT #B1TW,aTXCSR 
8300 006344 001401 BEQ +4 
8301 006346 104004 ERROR 4 :BIT SHOULD BE CLR 
8302 “NOW SET THE MTDATA 
8303 006350 052777 040000 173350 BIS #MTDATA, aTXCS 
8304 006356 052777 000400 173342 BIS #MRESET.@TXCSR ;MASTER RESET 
8305 052777 010001 173334 BIS #MEXT !BREAK ,aTXCSR 
8306 006372 032777 002000 173326 BIT #BI Tw. aTXCSR 
8307 1401 BEQ +4 
8308 006402 004 “ ERROR 4 :B1TW SHOULD BE CLR BY MASTER RESET 
a 
8312 z:THIS TEST PERFORMS MASTER aft se TESTING & 
(1) 33 TESTING OF READ ONLY BIT RXDONE 
(5) PUTT TT TTT TT TTT TELE TTTTTETTTT TUTTI TTT TTT TTT TTT TTT TTT ttt 
(4) 006404 000004 18134: SCOPE 
(2) 006406 052777 000400 173312 BIS #MRESET,@TXCSR :MASTER RESET 





ee en ee ee 








oe ee +s ee 
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(1) 006414 032777 000200 173270 BIT #RXDONE , A@RXCSR sTEST THIS BIT 
(1) 006422 001401 BEQ +4 'BR IF "0" 
(1) 006424 104004 ERROR 4% CHECK MASTER RESET LOGIC 
(1) :OR SHORT ON THIS BIT 

8313 z;THIS TEST PERFORMS MASTER RESET TESTING & 
(1) 33 TESTING OF READ ONLY BIT RECACT 
(5) 1+ biahb-bb-bb-iahiehehiehiehiehbbhihihhbhiehiahhihiehiahhihihhiihihithiehiahiy 
(4) 006426 000004 T8135: SCOPE 
(2) 006430 052777 000400 173270 BIS WMRESET,@TXCSR :MASTER RESET 
(1) 006436 032777 004000 173246 BIT WRECACT,@RXCSR TEST THIS BIT 
(1) 006444 001401 BEQ + :BR IF '0" 
(1) 006446 104004 ERROR 4 ; CHECK MASTER RESET LOGIC 
C1 :0R SHORT ON THIS BIT 

8314 s;THIS TEST PERFORMS MASTER RESET TESTING & 
(1) 3TESTING OF READ ONLY BIT DSC 
(5) ° 2 Rkeeeeedeeeeeeeeeeeeeeeeeeeeeeenaaeeaaeeeetereneeeeeeeneeeeeaee 
4) 006450 000004 T$136: SCOP 
(2) 006452 052777 000400 173246 BIS #MRESET,@TXCSR MASTER RESET 
(1) 006460 032777 100000 173224 BIT #DSC,@RXCSR :TEST THIS BIT 
(1) 006466 001401 BEQ +4 7BR IF ‘0" 
(1) 006470 104004 ERROR 4 >CHECK MASTER RESET LOGIC 
(1) z0R SHORT ON THIS BIT 

8315 z;THIS TEST PERFORMS MASTER RESET TESTING 2 

B39 33 TESTING OF READ ONLY BIT TXDONE 

8318 POTTS TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TILT TTTTTTT TTT TTT TTT TTT TT 
(3) 006472 000004 18137: SCOPE 

8319 006474 052777 000400 173224 BIS #MRESET,@TXCSR ;:MASTER RESET 

8320 006502 032777 000200 173216 BIT #TXDONE.aTXCSR :TEST THIS BIT 

8321 006510 001001 BNE +4 sBR IF °° 

8322 006512 104004 ERROR 4 > CHECK AMASTER RESET LOGIC 

8323 sOR SHORT ON 

8324 z:THIS TEST PERFORMS MASTER RESET TESTING & 
(1) 33 TESTING OF READ ONLY BIT DNA 
(5) PPIITTTITITICI ITT TT TTI ti Titi ti iit ii itiiitiiiiiiiiiiiiiiit 
(4) 006514 000004 78140: SCOPE 
(2) 006516 052777 000400 173202 BIS #MRESET ATXCSR :MASTER RESET 
(1) 006524 032777 100000 173174 BIT #DNA,@TXCSR TEST | THIS BIT 
(1) 006532 001401 BEQ re :BR IF '0" 
(1) 006534 104004 ERROR 4 -C HECK MASTER RESET LOGIC 
(1) :0R SHORT ON od BIT 

8325 s;THIS TEST PERFORMS MASTER RESET TESTING & 

£359 3TESTING OF READ ONLY WORD RECEIVE DATA 

8328 PPPITITITITITITITIT TIT T iti iit iiiiiiiiiiiiiiiiiiiiiiit 


ee ee ee ee ne _——- —_ 
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ENDUOA. cr 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0044 
(3) 006536 000004 TST41: SCOPE 
RESET 
8330 006546 016703 173144 MOV RXDBUF -R3 [FOR ERROR MESSAGE 
8331 006552 012700 000377 MOV #377,R SEXPECTED 
8332 006556 017701 173134 MOV ARXDBUF - RT ACTUAL 
8333 006562 120001 CMPB—s- RO, R1 
8334 006564 001401 BEQ +8 :BR IF “¢ 
8335 006566 104002 ERROR 2 REC DATA SHOULD BE ALL 1°S 
8336 S:THIS TEST PERFORMS MASTER RESET TESTING & 


3s TESTING OF READ ONLY BIT PARER 


ee 
Sf PARRA EEEERAEREREAEEEEREEEEEREEEEREREEREEEEERAEREEEREREEEREEEEEEEE 


i 
| 9339 006540 052777 000400 173160 BIS #MRESET,aTXCSR MAST ER 
006570 000004 TS142: SCOPE 


;O0R SHORT ON THIS BIT 


33THIS TEST PERFORMS MASTER o $ of TESTING & 
2s TESTING OF READ ONLY BIT OVR 


1) 
1) 
5) 
é) 
2) 006572 052777 000400 173126 BIS WMRESET,@TXCSR ;:MASTER RESET 
1) 032777 010000 173110 BIT #PARER,@RXDBUF ;TEST THIS BIT 
1) 006606 001401 BEQ +4 <BR IF "'0'' 
1) 006610 104004 ERROR 4 °CH ECK MASTER RESET LOGIC 
» zOR SHORT ON THIS BIT 
8337 z;THIS TEST PERFORMS MASTER RESET TESTING & 
13 33 TESTING OF READ ONLY BIT FRMERR 
5) o  RRRReeeeeeheeekeeeeeeeeeeeeeeeeeaeeaeeeeeeareaneeeeeaerereeeeer 
4) 006612 000004 1S143: SCOPE 
2) 006614 05 7 00 173104 BIS WMRESET,@TXCSR :MASTER RESET 
1) 006622 032777 020000 173066 BIT #FRMERR,@RXDBUF ;TEST THIS BIT 
1) 006630 001401 BEQ +4 7BR IF '0" 
2 006632 104004 ERROR 4 i CHECK MASTER RESET LOGIC 
1) 


PPPITTIITITITI LITT titi iit iiiitiiiiiiiiiiiiiiiiiitiiiiiit 


PRR RRRRRRRAAR RRRRRRARRRRAAR FR RRR RRR R RNA AAA A AAA 


1) 
3) 
4) 006634 000004 TS144: SCOPE 
2) 006636 052777 000400 173062 BIS WMRESET,@TXCSR ;MASTER RESET 
1) 006644 032777 040000 173044 BIT #OVRRUN,@RXDBUF TEST THIS BIT 
1) 006652 001401 BEOQ +4 :BR IF "0" 
1) 006654 104004 ERROR 4 “CHECK MASTER RESET LOGIC 
2 zOR SHORT ON THIS BIT 
8339 zz THIS TEST PERFORMS MASTER, RESET TESTING & 
if 33TESTING OF READ ONLY BIT RXERR 
5) PUTT TT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
4) 006656 000004 18145: SCOPE 
2) 006660 052777 000400 173040 BIS #MRESET,@TXCSR ;MASTER RESET 
1) 006666 032777 100000 173022 BIT #RXERR,ARXDBUF TEST THIS BIT 
1) 006674 001401 BEQ +4 :BR IF '0" 
) 006676 104004 ERROR 4 CHECK MASTER RESET LOGIC 


:OR SHORT ON THIS BIT 


a i ne re en ee ce a ee | ee ee + oe 
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| @) 
| 8340 THIS TEST VERIFYS THAT THE DEVICE REGISTER RXCSR 
| 834) 31S CLEARED BY MASTER RESET 
8342 * RAAAAAAEAAAAAAAAAAEAATEEEEAEEAEAAAAAAAEAAAEAREREAERARAAREEREREREEEE 
¢ ) 006700 000004 T5146: SCOPE 
8343 006702 012777 177777 173002 


01 
8344 006710 oS 777 ~=000400 173010 


8345 006716 016703 172770 
8346 722 017701 172764 
8347 726 105767 172217 
8348 0067 100010 

tnt 006734 042701 173000 
8351 006740 012700 000000 


00040 
8356 006754 042701 173000 1$: 


006772 2$: 


16702 172122 


ARR ARARRA 
ted ed ad ed od od 
ee ee we a ee we 
S 
o 
sc 
=—v 
Ww 
Oo 
~ 


Sas 


0.00 000000 Co 
& 


bepepeteteret eter mips ety. 
io “oo 


007002 000004 1é147: 
2777 (177777 172714 


000400 
703 172702 
172676 
000200 


SSVOARANLSS 
ssss 
So 
& 
Soooooeo 
ON]. i = 


S23 





MOV #177777, ,aRXCSR SET ALL POSSIBLE BITS 
BIS #MRESET.aTXCSR ;MASTER RESET 
MOV RXCSR,RS :FOR ERROR MESSAGE 


MOV @RXCSR,RI [SAVE ACTUAL 

ste OPTCLR 3TEST THE OPT CLR JUMPER FLAG 

BIC #173000 CLR’ NON-MASTER RESETTABLE 

hi rorigestice, Test ARE DEPENDENT ON H315 CONNECTORS EXISTANCE) 
CMP RO,R1 EXPECTED VS ACTUAL 

ERROR i ALL msn RESETABLE BITS SHOULD BE CLR 

BIC #173000,R1 R NON-MASTER RESETABLE 

is gB1TS<SINCE Hesé. ARE DEPENDENT ON H315 CONNECTORS EXISTANCE) 
CHP RO, RI SEXPECTED VS ACTUAL 

ERROR ZONLY STD,RTS,DTR BITS SHOULD BE SET 


:NOTE THAT STD Is “READ =1 INDEPENDENT OF 
[SEC XMIT #6 STRAP 


WAIT FOR CABLE DELAYS 


PReeeeeaeeeeereeeeeeeeeeenereaereeeeeese 
SMODIFY "'MOLD:"* ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
Terie tetir ili liteigitiiiiigiiiiiry 


Mov me. oR2 ;SET DELAY TIME 


DEC 
Pin WAIT THIS TIME 
OK NOW F L THRO AND CONTINUE TESTING......cceee 
SEXIT STAGE LEFT....CHINNNG! 


33 THIS TEST VERIFYS THAT THE DEVICE REGISTER TXCSR 
e315 CLEARED BY MASTER RESET 


WITTITITITITITI LILI T TIT TILLLTLi LiL itt Tir i TT t Titi i 


SCOPE 


MCV #I7TTTT -ATXCSR :SET ALL ap OSsieLe BITS 
BIS #MRESET.aTXCSR imAST ER 
MOV TXCSR RS ERROR AESSAGE 


MOV aTXCSR,R me ACTUAL 

MOV #200 Rone 

cap 0.Ri1 cE NPECTED VS ACTUAL 

ERROR x ZONLY TXDONE SHOULD BE SET 


THIS TEST VERiFYS THAT THE DEVICE REGISTER RXDBUF 
221S CLEARED BY MASTER RESET 


—— # Ce ee —st—“‘i‘—OR€ 


SEQ 0045 


c- - - - > n+ ee ee ee ee ++ ee 


UQ=A0 MACY11_30(1046) ne 09:56 PAGE 62-32 


Bory M11: 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0046 
Bee + REREREREREREREREREREEREHEEERERERHAEREREREREREREeEReereeereeeeer 
(3) 007042 000004 TST50: SCOPE 
385 052777 000400 172654 BIS #MRESET wes zMASTER RESET 
8386 007052 01670 172640 MOV FR sFOR ERROR MESSAGE 
8387 007056 017701 172634 MOV Mee 
8388 012700 000377 MOV arr. RO’ RF KPECT cred 
8389 007066 020001 CMP 0,R1 EXPECTED VS ACTUAL 
8390 007070 001401 BEQ a 
8391 007072 104002 ERROR 2 Y REC DATA BITS SHOULD BE SET 
8392 3;THIS TEST vertivs: BITS RING, sCIS, gCARDET.S SRD.DS 
8393 S:ALSO DSC IS GENERATED WHEN AN ESE atts “Ane SET 
8394 t:0R CLEA ARED. » IT ALSO CHECKS THE nObER 6 
8395 z JUMPER AND THAT THESE BITS CAN BE READ 
oaoe 3iNOTE: THE MODER BYPASS JUMPER MUST BE ON (H315) 
8398 seeteeeeeeeeeeneeeerereeeeeeeeeeeeneneneeneeeeerereeeeeeeeeeenes 
(3) 007074 000004 T8151: SCOPE 
8399 007076 005077 172610 CLR @RXCSR_ ;TO GET RID OF STD ,RTS,DTR IF OPTCLR JUMPER #4 IS NOT ON 
8400 007102 052777 000400 172616 BIS #MRESET SIXCSR :MASTER RE 
8401 ;TEST THAT A “YES'* ANSWER WAS GIVEN TO QUESTION IN 
8402 STH MONITOR OR BY DESAG 
8403 STHIS TEST WILL BE BYPASSED IF THE EXTERNAL BYPASS 
8404 : JUMPER IS NOT INSTALLED 
8405 007110 105767 172037 TSTB © JMRBY 
8406 007114 100402 BMI +6 :THE ANSWER WAS YES... 
0 : PERFORM THIS TEST 
8408 007116 000167 000652 JMP ouT1 : JUAP AROUND THIS TEST IF THE ANSWER 
8410 007122 016703 172564 MOV RXCSR,R3 :SET UP FOR ERROR MESSAGE 
8411 007126 017701 172560 MOV @RXCSR,R1 “AC 
Hats 007132 005000 CLR RO EXPECTED 
8413 007134 005701 TST R1 31 =0? 
8414 007136 001401 BEQ 
8415 007140 104001 ERROR R SHOULD BE CLR 
8416 007142 052777 000002 172542 BIS #OTR anise sSET DTR 
841 sWAIT FOR tneee DELAYS 
(1) FRAAAAAAAASHAAASAAAAHAAAEAAEREREREREEEE 
(1) [MODIFY “HOLD:"’ ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) SRAESEAAAEAAEAEAEAAAETAEAAEEAAAAAAREREERERE 
(1) 007150 016702 171744 MOV HOLD,R2 :SET DELAY TIME 
(1) 007154 005302 DEC R2 
(1) 007156 001376 BNE 72 WAIT THIS TIME 
(1) 0K WOW FALL in ealion TESTING. .cccccccce 
8418 007160 01701 172526 hov @RXCSR,_RI CTUAL 
19 0071 12700 130002 MOV #130002,R0 OSCe CTS. CARDET,DTR 
ae 920001 cap RO Rl EXPECTED VS ACTUAL 
7174 104001 ERROR i’ ;CHECK BYPASS CONNECTOR 
e155 7176 017701 172510 MOV aRXCsR, ri T 
84 4 907 02 012700 030002 MOV #30002.R0 *CTS,CARDET,DTR 
35 7 20001 CMP RO.R1 EXPECTED VS ACTUAL 
8426 007210 001401 BEQ + 
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CNDUQA.M11 -«- 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0047 
8427 007212 104001 ERROR 1 ZPREVIOUS READING OF RXCSR SHOULD 
8428 ;HAVE CLEARED DSC 
8429 007214 052777 000004 172470 81S #RTS, aR 
84 ;WAIT FOR CABLE DELAYS 
(1) [eetenteeeeeeeteeeerereeneneteeteeneees 
(1) [MODIFY “'HOLD:"’ ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) RR AAAEAALAAAALALAL LALA EAL ET ERT ETT GS 
(1) 007222 016702 171672 MOV HOLD,R2 :SET DELAY TIME 
(1) 007226 005302 DEC R2 
(1) 001376 BNE 72 WAIT THIS TIME 
(1) 30K NOW FAL L THRU AND CONTINUE TESTING.....+++00. 
(1) EXIT STAGE ODEO CHINNN NNG! 
8431 007232 017701 172454 MOV @RXCSR 
8432 007236 912700 170006 MOV #170006, RO :DSC,RING,CTS,CARDET,RTS,DTR 
8433 007242 020007 CMP RO,R1 EXPECTED VS ACTUAL 
8434 007244 001401 BEQ +8 
8435 007246 104001 ERROR i *CHECK BYPASS CONNECTOR 
8436 007250 017701 172436 MOV @RXCSR,RI 
8437 007254 012700 070006 MOV #70006,RO >RING, CTS, CARDET,RTS,DTR 
8438 007260 020001 CMP RO,Ri | sEXPECTED VS ACTUAL 
8439 007262 001401 BEQ +4 
8440 007264 104001 ERROR 1 sPREVIOUS READING OF RXCSR SHOULD 
8441 SHAVE CLEARED DSC 
844 7266 105767 171655 TSTB) = SEXMIT 31S SEC XMIT JUMPER IN ? 
8443 007272 100112 BPL T2 
8444 007274 105767 171650 TST SEREC tS SEC REC JUMPER IN ? 
8445 007300 100163 BPL OUT *NO 
8446 007302 052777 000010 172402 BIS #STD,@RXCSR 
4 ;WAIT FOR CABLE DELAYS 
(1) J AAAAAAAAAAASSAAAAAAAAAAAAAAAREREEEEEEE 
(1) [MODIFY "'HOLD:"’ ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) ‘ SREAAAAAeEEAEAAAAAAEAAEeAESAeAeAAaaaaaaaee 
(1) 007310 016702 171604 MoV HOLD. R2 zSET DELAY TIME 
(1) 007314 005302 DEC 
(1) 007316 001376 BNE 2 sWAIT THIS TIME 
(1) 70K NOW FALL THRU AND CONTINUE TESTING.....+2+0e. 
(1) EXIT STAGE LEFT....CHINNNG! 
8448 007320 017701 172366 
8449 007324 012700 173016 MASK1: MOV #173016,RO :DSC.RING,CTS.CARDET .SRD.DSR 
8451 007330 020001 CMP RO.R1 ;EXPECTED VS ACTUAL 
845¢ 007332 001401 BEQ .+ 
845 7334 104001 ERROR 1 :CHECK BYPASS CONNECTOR 
8454 007336 017701 172350 MOV @RXCSR,R 
8435 007342 012700 073016 MASK2: MOV #73016.RO :RING CTS CARDET SRD ,DSR,STD 
Bees 6 020001 CMP RO.R1 ;EXPECTED VS ACTUAL 
8458 007350 001401 BEQ + 
8459 007352 104001 ERROR i PREVIOUS READING OF RXCSR SHOULD 
8460 AVE CLEARED DSC 
8461 007354 042777 000002 172330 BIC #DTR,@RX SR 
8462 ;WAIT FOR table DELAYS 


PAAHAAAAeAeeeeeeeeeeeeeeeeeeekaenaenetese 


ZMODIFY "HOLD:"* ACCORDINGLY FOR FASTER OR SLOWER MACHINE 


SeHCAAeRerKetereeeeeeeeaeeegaegaegegaeene 


007362 016702 171532 Mov HOLD.R2 ;SET DELAY TIME 
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CNDUQA.M11 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0048 
(1) 007366 005302 DEC 
(1) 007370 001376 BNE <2 sWAIT THIS TIME 
(1) 30K NOW FALL THRU AND CONTINUE TESTING........... 
(1) “EXIT STAGE LEFT....CHINNNG! 
8463 007372 017701 172314 MOV @RXCSR,_R1 
8464 007376 012700 143014 MOV #143014,R0 :DSC,RING,SRD,DSR,STD,RTS 
8465 007402 020001 CMP RO,R1 sEXPECTED VS ACTUAL 
8466 007404 001401 ~* 
846 7406 104001 ERROR ji :DSC SHOULD BE SET 
8468 007410 042777 000004 172274 BIC #RTS ,ARXCSR 
8469 ;WAIT FOR CABLE DELAYS 
(1) J RAAAAAAAAE AAAS AEA EEEEEEEREREREREEEERE 
(1) sMODIFY “‘HOLD:** ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) SRERAAPAAAEAAEAAeEEASEAEAAAAAAAAAAAEAERE 
(1) 007416 016702 171476 V HOLD,R2 ;SET DELAY TIME 
(1) 007422 005302 DEC R2 
(1) 007424 001376 BNE 72 sWAIT THIS TIME 
(1) 30K NOW FALL THRU AND CONTINUE TESTING........... 
(1) *EXIT STAGE LEFT....CHINNNG! 
8470 007426 017701 172260 MOV @RXCSR_RI 
8471 007432 012700 103010 MASK3: MOV #1030160,R0 -DSC,SRD,DSR,STD 
8472 007436 020001 CMP RO,R1 sEXPECTED VS ACTUAL 
8473 007440 001401 BEQ .¢ 
8474 007442 104001 ERROR i :DSC SHOULD BE SET 
8475 007444 042777 000010 172240 BIC #STD,ARXCSR 
8476 ;WAIT FOR CABLE DELAYS 
(1) fF AAAAAAAAAEAAEAAAAAAAAEREEAAAAEAAARERERRE 
(1) sMODIFY “‘HOLD:** ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) SRRAAAAAAAHAAAAAAAAAAAAAAARAAAAAAEEEE 
(1) 007452 016702 171442 MOV HOLD,R2 ;SET DELAY TIME 
(1) 007456 005302 DEC R2 
(1) 007460 001376 BNE 2 sWAIT THIS TIME 
(1) 30K NOW FALL THRU AND CONTINUE TESTING........... 
(1) “EXIT STAGE LEFT....CHINNNG! 
8477 007462 017701 172224 MOV @RXCSR,RI 
8478 007466 012700 100000 MOV #1 RO DSC 
8479 007472 020001 CMP RO,R1 EXPECTED VS ACTUAL 
8480 007474 001401 BEQ +8 
8481 007476 104001 ERROR i :DSC SHOULD BE SET 
8482 007500 017701 172206 MOV ARXCSR,RI 
8483 007504 005000 CLR RO : 
84 7506 005701 TST R1 
8485 007510 001401 BEQ +4 
8486 007512 104001 ERROR i :DSC SHOULD BE CLEARED FROM PREVIOUS 
8487 TREADING OF RXCSR 
8488 007514 000167 000254 JMP ouT : JUMP AROUND 
8489 :THE FOLLOWING ROUTINE HANDLES THE SITUATION WHERE SEC XMIT 
8490 “AND SEC REC JUMPERS ARE NOT ON 
91 007520 052777 000010 172164 OuT2: BIS #STD,aRXCSR 
92 sWAIT FOR CABLE DELAYS 
(1) FAAAAAAATAASAAASATAAAEEAAAAAATERAAEEEES 
(1) [MODIFY “'HOLD:"* ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) RESEAAAEAETAEETEAAEAAEAAEAEAAAAAAAEAEARAEEEE 
(1) 007526 016702 171366 Mov HOLD,R2 :SET DELAY TIME 
(1) 007532 00530 DEC 


wre WALT THIS TIME 








—— 
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6 [CNDUQA.M11 «30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0049 
(1) 30K NOW FALL THRU AND CONTINUE TESTING.....++000 
(1) “EXIT STAGE LEFT....CHINNNG! 
8493 007536 017701 172150 MOV @RXCSR,R1 sACTU 
8494 007542 012700 070016 MOV #70016,RO EXP arte RING ,CTS,CARDET,STD,RTS,DTR 
8495 007546 020001 CMP RO,R1 | ;EXPECTED VS ACTUAL 
8496 007550 001401 BEQ + 
8497 007552 104001 ERROR 1 :CHECK SEC XMIT & SEC REC JUMPERS 
8498 007554 042777 000004 172130 BIC #RTS,ARXCSR 
8499 sWAIT FOR CABLE DELAYS 
(1) POTTTIITITI TTT Titi iit Titi ii iti titi ii 
(1) [MODIFY "HOLD:'* ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) J RAAAAAAAAEAAAEAEAAEAAEAAERAERERERERERE 
(1) 007562 016702 171332 MOV HOLD,R2 :SET DELAY TIME 
(1) 007566 005302 DEC R2 
(1) 007570 001376 BNE 532 sWAIT THIS TIME 
(1) 30K NOW FALL THRU AND CONTINUE TESTING.....+2e0e. 
(1) EXIT STAGES LEFT... .CHINNNG! 
21 MOV aRrx XCSR R,RT 


72114 Has 
30012 MOV C,CTS,CARDET,DTR,S 


8501 007576 012700 #1300 
8502 :NOTE THAT pst ere assioes EVEN THO THE See ralt JUMPER # 6 IS NOT ON 
8503 007602 020001 CMP RO.R1 EXPECTED VS ACTUAL 
8504 007604 001401 BEQ .+ 
8505 007606 104001 ERROR 1 sCHECK BYPASS CONNECTOR 
8506 007610 042777 000002 172074 BIC #DTR,A@RXCSR 
850 3WAIT FOR CABLE DELAYS 
(1) SMODIFY “HOLD:"" ACCORDINGLY FOR FASTER 
(1) “WOLD:"* ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) Peery Let Sevemeneny Fon ae: 
(1) 007616 016702 171276 Mov HOLD,R2 ;SET DELAY TIME 
(1) 007622 005302 DEC R 
(1) 007624 001376 BNE A WAIT THIS TIME 
(1) OK NOW F THR)” AND CONTINUE TESTING.....+.+e0. 
(1) ut STAGE ver 1 ++ «CHINNNG! 
8508 007626 017701 172060 MOV @RXCSR,RI CTUAL 
8509 007632 012700 100010 MOV #100010, RO STD 
8510 007636 020001 CMP RO,R1 _ ee vs ACTUAL 
8511 007640 001401 BEQ +4 
8512 07642 104001 ERROR i ZONLY DSC & STD SHOULD BE SET 
851 4 000167 000124 JMP our JUMP AROUND 
8514 007650 052777 000010 172034 ouT3: BIS arxCsSR 
8515 3WAIT OR CaBeE DELAYS 
(1) em th DN, Sn 
(1) [MODIFY "'HOLD:"* ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) SRAAAAAAAAAAAAAAAAAAAAAAAe Ree eReeeRTeee 
(1) 007656 016702 171236 Mov HOLD,R2 ;SET DELAY TIME 
(1) 007 005302 DEC R2 
(1) 007664 001376 BNE 72 sWAIT THIS TIME 
(1) 70K NOW FALL THRU AND CONTINUE TESTING.......+e+. 
(1) *EXIT STAGE LEFT....CH INNING: 
8916 7 917701 172020 MOV Ri CTUAL 
851 76 12700 171016 MOV #171016, RO cE XPECTED: DSC,.RING, CTS, CARDET,DSR,STD.RTS.DTR 
518 7676 020001 CMP RO,R1 RO PECTED VS ACTUAL 
8919 00 001401 Q +4 
520 007702 1 001 ERROR i *CHECK SEC REC JUMPER 
8521 007704 042777 000004 172000 BIC #RTS ,ARKCSR 
8522 ;WAIT FOR CABLE. DELAYS 





RS” SEA RRRG ae slp age 


CNDUQ=A0 MACY11 30(1046) 14=DEC-82 09:56 PAGE 62-36 
CNDUQA.M11 © 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0050 
(1) FARRAR AAAAEKEEAAERAAEAAAAEREEEAAENEAEEE 
(1) SMODIFY “'HOLD:"* ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) PARRA RAAALALALALALAAA ALERT ETRE 
(1) 007712 01 6702 171202 Mov HOLD,R2 :SET DELAY TIME 
(1) 007716 00530 DEC R 
(1) 007720 001376 BNE 32 sWAIT THIS TIME 
1) 70K NOW F THRU AND CONTINUE TESTING....s+se00e 
(1) EXIT Sract ate T. «+ CHINNNG! 
8523 007722 017701 171764 ACTUAL 
8504 007726 012700 131012 MOV #131012,R0 ‘EXPECTED: DSC,CTS,CARDET,DSR,STD,DTR 
8525 007732 020001 CMP RO,R1 EXPECTED VS ACTUAL 
8526 007734 001401 BEQ +h 
8527 007736 104001 ERROR 1 s CHECK H315 CONNECTOR 
8528 007740 042777 000002 171744 BIC #OTR,aRxc 
8529 ;WAIT FOR CABLE DELAYS 
(1) FARRAH EAAAAEEEAEEEAEAAEAEEEAREEAREREREREE 
(1) [MODIFY “HOLD:"* ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
(1) [eke eeeeeeeeetereereeereneeeteeeeeeeene 
(1) 007746 016702 171146 MOV HOLD,R2 ;SET DELAY TIME 
(1) 007752 005302 DEC R2 
(1) 007754 001376 BNE 72 sWAIT THIS TIME 
(1) 30K NOW FAL LL THRU AND CONTINUE TES Bc cccccences 
(1) SEXIT STAGE LEFT....CHINNNG! 
8530 007756 017701 171730 MOV @RXCSR,R1 s ACTUAL 
8531 007762 01 101010 MOV #101010,R0 *EXPECTED: DSC,DSR,STD 
8532 7766 CMP RO,R1 EXPECTED VS ACTUAL 
8533 007770 001401 BEQ +h 
8954 7772 104001 ERROR i :CHECK H315 CONNECTOR 
8959 777. OUT1: 
8537 zsTHIS TEST VERIFYS THAT RECACT (REC ACTIVE) ASSERTS 
(1) i] WHEN SYNC EXTERNAL MODE IS SELECTED 
(1) 3 AND SYNC SEARCH IS SET 
(5) PUT TTTITTTTTTTTTTTTI TTT TTT TTI TT TTT TITEL TTT TTT TTT TTT TTT tT 
(4) 007774 000004 +8152: SCOPE 
(3) 007776 052777 000400 171722 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 012777 020000 171710 MOV #SYNEXT.@PARCSR :SET THE MODE 
(3) 010012 052777 000400 171706 BIS #MRESET.@TXCSR :MASTER RESET 
(2) ;SET MAINT DATA,CLK BREAK GMAINTENANCE MODE 
(2) 010020 012777 064001 171700 MOV #MTOATA! CLK !MINT !BREAK,@TXCSR 
(2) ySET MODE ,# OF Bits PARITY SENSE, A AD SYNC REG 
(2) 010026 012777 026026 171666 MOV YNEXT ! EIGHT 126,@PARCSR 
(1) 010034 032777 004000 171650 BIT PRECACT ORSCSReS 
(1) 010042 001401 BEQ +4 
(1) 010044 104004 ERROR & ;RECACT SHOULD NOT BE SET 
(1) 010046 0327 7 000020 171636 BIS #SYNSCH,@RXCSR SET SYNC SEARCH 
(1) 010054 032777 004000 17163 BIT #RECACT.a@RXCSR 
(1) 010062 001001 E +4 
(1) 910064 104 ERROR & zRECACT DID NOT ASSERT 
(1) 10066 042777 000020 171616 BIC #SYNSCH,@RXCSR DROP SEARCH SYNC 
(1) 010074 


032777 004000 171610 BIT WRECACT,@RXCSR 1S IT =0? 
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ENDUGA, M11: 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0051 , 
1) 910102 001401 BEQ +4 
(1) 010104 104004 ERROR 4 ZRECACT SHOULD BE 0 
(1) 
8538 ss THIS TEST VERIFYS THAT RECACT (REC ACTIVE) ASSERTS 
(1) HEN ISOCRONOUS MODE IS SELECTED 
ai) 3 AND SYNC SEARCH IS SET 
(5) eeeRekeeeeeheeeeeeeeeetereeeeeeeeneaeaeerasaeneatarererererere 
(a) 010106 000004 T$153: SCOPE 
(3) 010110 052777 000400 171610 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 010116 012777 000000 171576 MOV #ISYMOD,@PARCSR :SET THE MODE 
(3) 010124 052777 000400 171574 BIS #MRESET.@TXCSR :MASTER RESET 
(2) :SET MAINT DATA,CLK,BREAK,&MAINTENANCE MODE 
(2) 010132 012777 064001 171566 MOV #MTOATA! CLK !MINT !BREAK,a@TXCSR 
‘$} sSET MODE .# OF BITS.PARITY SENSE -GLOAD SYNC REG 
(2) 010140 012777 006026 171554 MOV #1SYMOD! EIGHT !NOPAR! 26,@PARCSR 
(1) 010146 032777 004000 171536 BIT PRECACT_ORACSR 
(1) 010154 401 BEQ +4 
(1) 010156 ERROR 4 :RECACT SHOULD NOT BE SET 
(1) 010160 052777 000020 171524 BIS WSYNSCH,@RXCSR :SET SYNC SEARCH 
(1) 010166 032777 004000 171516 BIT #RECACT,a@RXCSR 
(1) 010174 1 BNE +4 
(1) 010176 104004 ERROR 4 :RECACT DID NOT ASSERT 
(1) 010200 042777 000020 171504 BIC #SYNSCH,@RXCSR :DROP SEARCH SYNC 
(1) 010206 032777 004000 171476 BIT WRECACT,@RXCSR IS IT =0? 
(1) 010214 001401 BEQ +4 
1) 010216 104004 ERROR 4 :RECACT SHOULD BE 0 
(1) 
8539 s:VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 
(1) :IN TWO * SYNC CHARS THRU MAINT DATA BIT 
(1) + WATCH THE RECACT BIT 
(1) ?:0N THE THIRD * CHARACTER IT SHOULD SET RXDONE 
(1) t:%: DEPENDENT ON MONITOR......... 
(1) 331F ONE SYNC ST RAP 1S SELECTED THEN IT WILL ONLY 
(1) STAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT 
(1) SION THE SECOND CHARACTER 
(1) s:AL'SO CHECK THIS CHARACTER IN RXDBUF 
(1) D CHECK OPERATION OF SYNSCH 
(1) ¢ SYNC INTERNAL 
(1) LENGTH FIVE 
(5) f PUT TTT TTT T TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TT TTT TTT 
(4) 010220 000004 8154: SCOPE ® 
(3) 10222 052777 000400 171476 BIS #MRESET,@TXCSR :MASTER RESET 
2) 10 012777 030000 171464 MOV #SYNINT.@PARCSR :SET THE MODE 
010236 052777 000400 171462 BIS #MRESET.@TXCSR :MASTER RESET 
(2) 3SET MAINT DATA,CLK BREAK GMAINTENANCE MODE 
3} 010244 012777 064001 171454 MOV #MTOATA! CLK! MINT BREAK, a@TXCSR 
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CNDUQA.M11 - 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0052 
) ' 
3 zSET MODE ,# OF BITS,PARITY SENSE LOAD SYNC REG 
) 01025 012777 030026 171442 MoV #SYNINT! FIVE !NOPAR! 26,@PARCSR 
1) 010 016703 1714 MOV XDBUF , zSET UP FOR ERROR MESSAGE 
) 010264 052777 000020 171420 BIS WSYNSCH,@RXCSR SET SYNC SEARCH 
) sPOKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
) 910272 042777 020000 171426 BIC “#CLK,aTXCSR sPOKE CLK DOWN 
» 010 052777 020000 171420 BIS #CLKaTXCSR * POKE cLk uP 
) :POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
2) 010306 042777 020000 171412 BIC #CLK,aTXCSR :POKE CLK DOWN 
) 010314 052777 020000 171404 BIS #clk aTXCsSR SPOKE CLK UP 
1) 010322 012767 000002 170574 MOV #2, COUNT 
1) 010330 012767 000005 170564 1$: MOV #5, SHIFT 34 OF SHIFTS 
1) 010336 012767 000026 1711 MOV #26,$TMP1 :SYNC CHARACTER 
1) 010344 004767 906394 JSR PC ,RPOKE 
1) 010350 005367 170550 DEC 
1) 010354 001403 BEQ $ 
) :TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
1) 010356 105767 170564 TSTB © SYNCNO 
1) 010362 100762 BMI $ :TWO SYNC CHARS 
1) 010364 10577? 171322 2s: TSTB  @RXCSR :CHECK REC DONE BIT 
1) 010370 100001 BPL +4 
» 010372 104004 ERROR & ZRXDONE SHOULD NOT BE ASSERTED 
1) 010374 032777 004000 171310 BIT #RECACT, @RXCSR 
» 010402 001 BNE +4 
) 010404 104004 ERROR & ZRECACT SHOULD BE ASSERTED 
1) 010406 012767 000005 170506 MOV #5, SHIFT 
1) 910414 12767 1 171056 MOV #21,$TMP1 ZANY CHARACTER 
1) 010422 167 6 JSR PC ,RPOKE 
) 9104 6 105777 171260 TSTB  @RXCSR CHECK RXDONE 
1) 010432 100401 BMI +4 
1) 010434 104004 ERROR 4 zRXDONE SHOULD BE ASSERTED 
1) 010436 032777 004000 171246 BIT #RECACT,@RXCSR 
)» 010444 001001 BNE +4 
1) 010446 104004 ERROR 4 ;RECACT SHOULD STILL BE ASSERTED 
1) 010450 0427 7 000020 171234 BIC #SYNSCH,@RXCSR CLR SYNC SEARCH 
1) 010456 032777 004000 171226 BIT WRECACT,@RXCSR IT SHOULD DROP IMMEDIATELY 
1) 010464 001401 BEQ +4 
» 010466 104004 ERROR 4 :RECACT SHOULD BE CLR 
1) 010470 105777 171216 TSTB  @RXCSR ;RXDONE 
) 910474 100401 BMI +4 
» 010476 104004 ERROR & sRXDONE SHOULD STILL BE ASSERTED 
1) 010500 912700 000021 MOV #21,RO ;EXPECTED DATA 
010504 017701 171206 MOV a@RXxOBUF ,R1 ZACTUAL DATA 
010519 020001 CMP RO,.R1 ‘sCOMPARE EXP VS ACT 
010512 001401 BEQ + 
010514 104002 ERROR 2 ZDATA CHARS SHOULD COMPARE 
10516 105777 171170 TSTB @RXCSR CHECK RXDONE 
105¢ 100001 BPL +4 
10524 104004 ERROR SHOULD BE CLR FROM 


4 : RXDONE 
ZPREVIOUS READING OF RXDBUF 


szVERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 
23IN_ TWO * SYNC CHARS THRU MAINT DATA BIT 

23WATCH THE RECACT BIT 

320N THE THIRD * CHARACTER IT SHOULD SET RXDONE 


ww wr Ow we ww wwe 
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CNDUQA.M1 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0053 
a) pies DEPENDENT ON MONITOR......<.+-se- 
(1) F ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY 
(1) TAK ONE SYNC CHARACTER FOR RXDONE TO ASSERT 
a) HE SECOND CHARACTER 
(1) $iALSO CHECK THIS CHARACTER IN RXDBUF 
(1) AND CHECK OPERATION OF SYNSCH 
(1) : SYNC INTERNAL 
it HNbneat 
(5) POTTS TSTTT TTT TTT TITTTTTTTTITTTITITTTITT TTT TTT TTT TTT ttt 
4) 010526 000004 +8155: SCOPE 
(3) 010530 052777 000400 171170 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 010536 012777 030000 171156 MOV #SYNINT.@PARCSR :SET THE MODE 
(3) 010544 052777 000400 171154 BIS #MRESET.@TXCSR :MASTER RESET 
42) ;SET MAINT DATA,CLK BREAK SMAINTENANCE MODE 
(3) 010552 012777 064001 171146 MOV #MTDATA! CLK! MINT !BREAK,@TXCSR 
(2) sSET MODE ,# OF BITS PARITY SENSE,@LOAD SYNC REG 
(2) 010560 012777 032026 171134 MOV YNINTES 1X!NOPAR!26,@PARCSR 
(1) 010566 016703 171124 MOV RXDBUF a iSET UP FOR ERROR MESSAGE 
(2) 010572 052777 000020 171112 BIS #SYNSCH,ARXCSR :SET SYNC S$ 
(2) -POKE CLK TO GET RECEI eivek® FNTO SYNCROT SATION. . « 
(2) 010600 042777 020000 171120 BIC #CLK,aTXCSR :POKE CLK DOWN 
(2) 010606 052777 020000 171112 BIS #CLK-aTXCSR “POKE CLK UP 
(2) :POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(3) 010614 042777 920000 171104 BIC #CLK ,aTXCSR :POKE CLK DOWN 
(2) 010622 052777 020 171076 BIS ack *a@TXCSR :POKE CLK UP 
(1) 010630 012767 000002 170266 MOV #2, COUNT 
(1) 010636 012767 000006 170256 1$: MOV #6, SHIFT :# OF SHIFTS 
(1) 010644 012767 000026 170626 MOV #26, $TMP1 [SYNC CHARACTER 
(1) 010652 004767 006246 JSR PC ,RPOKE 
(1) 010656 005367 170242 DEC COUNT 
(1) 010662 001403 BEQ 2$ 
(1) »TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
(1) 010664 105767 170256 TSTB _SYNCNO 
(1) 010670 100762 BMI 1$ WO SYNC CHARS 
(1) 010672 105777 171014 2$: TSTB © ARXCSR ‘heck REC DONE BIT 
(1) 010676 100001 BPL +h 
(1) 010700 104004 ERROR & :RXDONE SHOULD NOT BE ASSERTED 
(1) 010702 052777 004000 171002 BIT #RECACT, @RXCSR 
(1) 010710 001001 BNE i 
(1) 010712 104004 ERROR :RECACT SHOULD BE ASSERTED 
(1) 010714 012767 000006 170200 MOV shat 
(1) 010722 012767 900021 170550 MOV #21 STH t ZANY CHARACTER 
(1) 010730 767 006170 JSR 
(1) 010734 105777 170752 TSTB oRicsh E CHECK RXDONE 
(1) 010740 100401 BMI +4 
(1) 610742 104004 ERROR & ZRXDONE SHOULD BE ASSERTED 
(1) 910744 052777 004000 170740 BIT #RECACT, @RXCSR 
(1) vi075¢ 1001 BNE + 
(1) 610754 104004 ERROR & :RECACT SHOULD STILL BE ASSERTED 
(1) 010736 0756 042777 000020 170726 BIC WSYNSCH,@RXCSR CLR SYNC SEAR 
(1) 010 764 32777 004000 1707 BIT WRECACT.a@RXCSR :IT SHOULD BROP IMMEDIATELY 
(1) 010772 001401 BEQ +4 
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CNDUQA.M11 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0054 
(1) 010774 104 ERROR 4 ;RECACT SHOULD BE CLR 
(1) 010776 105777 170710 TSTB  @RXCSR ;RXDONE 
(1) 011002 100401 BMI +4 
(1) 011004 104004 ERROR 4 -RXDONE SHOULD STILL BE ASSERTED 
(1) 011006 012700 000021 MOV #21,RO ;EXPECTED DATA 
(1) 011012 017701 170700 MOV @RXOBUF , Ri zACTUAL DATA 
(1) 011016 020001 CMP RO,R1 ‘sCOMPARE EXP VS ACT 
(1) 011020 001401 BEQ + 
(1) 011022 104002 ERROR ;DATA CHARS SHOULD COMPARE 
(1) 011024 105777 170662 TSTB —@RXCSR SCHECK RXDONE 
(1) 011030 100001 BPL .+ 
(1) 011032 104004 ERROR 4 ONE SHOULD BE CLR FROM 
C1) PREVIOUS. READING OF RXDBUF 

8541 ::VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 

(1) N TWO * SYNC ait RS THRU MAINT DATA BIT 
(1) SWATCH THE RECACT BIT 
(1) S:0N THE THIRD * CHRRACTER IT SHOULD SET RXDONE 
(1) sin; DEPENDENT ON MONITOR.. 
(1) F ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY 
(1) $ TAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT 
(1) HE SECOND CHARACTER 
(1) i ALSO CHECK THIS CHARACTER IN RXDBUF 
(1) D CHECK OPERATION OF SYNSCH 
(1) $NODE SYNC INTERNAL 
(1) 3 SLENGTH: SEVEN 
(5) PTT TTT TTT TTT TT TTT TUTTLE TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
ch) 011034 000004 18156: SCOPE 
(3) 011036 052777 000400 170662 BIS #MRESET,a@TXCSR ;MASTER RESET 
(2) 011044 012777 030000 170650 MOV #SYNINT.@PARCSR :SET THE MODE 
(3) 011052 052777 000400 170646 BIS #MRESET.@TXCSR :MASTER RESET 
(2) SET MAINT yPATA-CLK BREAK. SMAINTENANCE MODE 
(3) 011060 012777 064001 170640 #MTDATA! CLK! MINT !BREAK, @TXCSR 
(2) ;SET MODE .# OF BITS,PARITY SENSE .SLOAD SYNC <fes 
(2) 011066 012777 034026 170626 MOV #SYNINT ! SEVEN! NOPAR! 26, @PAR 
(1) 011074 016703 170616 MOV RXDBUF ras :SET UP FOR “SR ROR MESSAGE 
(2) 011100 052777 000020 170604 BIS. #SYNSCH,@RXCSR :SET SYNC SE 
(2) E CLK TO GET RECEIVER INTO SYNCROIZATION. ... 
(2) 011106 042777 020000 170612 bre acl Lk ark XCSR :POKE CLK DOWN 
(2) 011114 052777 020000 170604 BIS #CLK aTXCSR *POKE CLK UP 
(2) zPOKE CLK TO GET Logie INTO SYNCRONIZATION 
(2) 011122 042777 20000 170576 BIC #CLK ,aTXCSR sPOKE CLK DOWN 
(2) 0111 05 777 170570 BIS #CLK aTXCSR :POKE CLK UP 
(1) 011136 012767 167760 MOV ‘ - GUN 
(1) 011144 012767 000007 167750 1$: MOV :# OF SHIFTS 
(1) Q11192 012767 26 170320 MOV 496. STRAP [SYNC CHARACTER 
(1) 0111 767 005740 JSR PC ,RPOKE 
(1) 011164 005367 167734 DEC OUNT 
(1) 011170 001403 BE $ 
(1) -TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
(1) 011172 105767 167750 1STB. SYN 
(1) 011176 100762 BMI :TwO SYNC CHARS 
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CNDUQA.M11 - 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0055 
(1) 011200 105777 170506 2$: TSTB  @RXCSR ;CHECK REC DONE BIT 
(1) 011204 100001 BPL +4 
(1) 011206 104004 ERROR 4 :RXDONE SHOULD NOT BE ASSERTED 
(1) 011210 032777 004000 170474 BIT #RECACT,@RXCSR 
(1) 011216 001001 BNE +4 
(1) 911220 104004 . ERROR 4 :RECACT SHOULD BE ASSERTED 
(1) 011222 012767 000007 16767 MOV #7, SHIFT 
(1) 011230 012767 000021 17024 MOV #21, $TMP1 sANY CHARACTER 
(1) 011236 004767 005662 JSR PC ,RPOKE 
(1) 011242 105777 170444 TSTB @RXCSR ;CHECK RXDONE 
(1) 011246 100401 BMI +h 
(1) 011250 104004 ERROR 4 :RXDONE SHOULD BE ASSERTED 
(1) 011252 032777 004000 170432 BIT #RECACT, @RXCSR 
(1) 011260 007001 BNE + 
(1) 011262 104004 ERROR 4 :RECACT SHOULD STILL BE ASSERTED 
(1) 011264 042777 000020 170420 BIC WSYNSCH,@RXCSR CLR SYNC SEARCH 
(1) 011272 032777 004000 170412 BIT WRECACT.@RXCSR :IT SHOULD DROP IMMEDIATELY 
(1) 011300 001401 BEQ +4 
(1) 011302 104004 ERROR 4 :RECACT SHOULD BE CLR 
(1) 011304 105777 170402 TSTB @RXCSR ;RXDONE 
(1) 011310 100401 I +4 
(1) 011312 104004 ERROR 4 *RXDONE SHOULD STILL BE ASSERTED 
(1) 011314 012700 000021 V #21,RO ;EXPECTED DATA 
(1) 011320 017701 170372 MOV @RXDBUF ,R1 zACTUAL DATA 
(1) 011324 020001 CMP RO,R1 °:COMPARE EXP VS ACT 
(1) 011326 001401 BEQ +8 
(1) 011330 10400¢ ERROR 2 ZDATA CHARS SHOULD COMPARE 
(1) 011352 105777 170354 TSTB @RXCSR CHECK RXDONE 
(1) 011336 100001 BPL + 
(1) 011340 104004 ERROR 4 :RXDONE SHOULD BE CLR FROM 
(1) ZPREVIOUS READING OF RXDBUF 
8542 z:VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 
(1) *:IN TWO * SYNC CHARS THRU MAINT DATA BIT 
(1) SWATCH THE RECACT 
(1) t:0N THE THIRD * CHARACTER IT SHOULD SET RXDONE 
(1) 338s DEPENDENT ON , 
(1) t:1F ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY 
(1) t: TAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT 
(1) ::0N THE SECOND CHARACTER 
(1) t:ALSO CHECK THIS CHARACTER IN RXDBUF 
(1) SAND CHECK OPERATION OF SYNSCH 
(1) [:MODE: SYNC INTERNAL 
33 7 :LENGTH:EIGHT 
(5) bd 2 Pere rrTeer ere TT ere TT ere rT ere TT eTeTeTTTTeTTTTTTTTTTTTTTT TT TTT TT 
(4) 011342 000004 1S$157: SCOPE 
(3) 011344 052777 000400 170354 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 011352 012777 030000 17034 MOV #SYNINT.@PARCSR :SET THE MODE 
(3) 011360 052777 000400 17034 BIS #MRESET.@TXCSR ;:MASTER RESET 
(2) :SET MAINT DATA,CLK,BREAK,SMAINTENANCE MODE 
011366 012777 064001 170332 MOV #MTOATA! CLK! MINT !BREAK, a@TXCSR 
(2) ZSET MODE .# OF BITS,PARITY SENSE, 8LOAD SYNC REG 
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CNDUQA.M11 —- 30-OCT-82 12:1 INITIALIZE THE COMMON TAGS SEQ 0056 

(2) 011374 012777 036026 170320 MOV a aaa a @PARCSR 
(1) 011402 016703 170310 MOV RXD P FOR ERROR MESSAGE 
(2) 011406 052777 000020 170276 BIS #SYNSCH,@RXCSR T SYNC SEARCH 
(2) :POKE CLK TO cet RECE veh, iNto SYNCROIZATION.... 
(2) 011414 042777 020000 170304 BIC ack ‘3 XCSR OKE cLk DOWN 
(2) 011422 052777 020000 170276 BIS #CLk TheSR KE CLK UP 
(3) :POKE CLK TO GET toele INTO swcibatt aft 
(2) 011430 042777 020000 170270 BIC #CLK,aTXCSR :POKE CLK DOWN 
(2) 011436 052777 020000 17026 BIS acl. *aTXCSR :POKE CLK UP 
(1) 011444 012767 000002 16745 MOV #2, COUNT 
(1) 911452 012767 000010 167442 1$: MOV #8. , SHIFT :# OF SHIFTS 
(1) 011460 012767 000026 170012 MOV #26,$TMP1 SSYNC CHARACTER 
(1) 011466 767 005432 JSR PC,R 
(1) 011472 005367 167426 DEC cou 
(1) 011476 001403 BEQ 2$ 
(1) -TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
(1) 011500 105767 167442 TSTB  SYNCNO 
(1) 011504 100762 BMI 1$ WO SYNC CHARS 
(1) 011506 105777 170200 2$: TST8  a@RXCSR ‘CHECK REC DONE BIT 
(1) 011512 100001 BPL +4 
(1) 011514 104004 ERROR 4 :RXDONE SHOULD NOT BE ASSERTED 
(1) 011516 032777 004000 170166 BIT '  #RECACT,@RXCSR 
(1) 011524 001001 BNE i 
(1) 011526 104004 ERROR :RECACT SHOULD BE ASSERTED 
(1) 011530 012767 10 167364 MOV #8. .SHIF 
(1) 011536 012767 000021 167734 MOV #21. Sth sANY CHARACTER 
(1) 011544 004767 005354 JSR PC ,RPOKE 
(1) 011550 105777 170136 TSTB #@RXCSR ;CHECK RXDONE 
(1) 011554 100401 BMI +4 
(1) 011556 104004 ERROR 4 :RXDONE SHOULD BE ASSERTED 
(1) 011560 032777 004000 170124 BIT #RECACT, @RXCSR 
(1) 011566 001001 BNE + 
(1) 011570 104004 ERROR 4 :RECACT SHOULD STILL BE ASSERTED 
(1) 011572 042777 20 170112 BIC #SYNSCH,@RXCSR :CLR SYNC SEARCH 
(1) 011600 032777 004000 170104 BIT WRECACT.@RXCSR :1T SHOULD DROP IMMEDIATELY 
(1) 011606 001401 BEQ +4 
(1) 011610 104004 ERROR & :RECACT SHOULD BE CLR 
(1) 011612 105777 170074 TSTB @RXCSR ;RXDONE 
(1) 011616 100401 +4 
(1) 011620 104004 ERROR 4 RXDONE SHOULD STILL BE ASSERTED 
(1) 011622 012700 000021 MOV #21. RO EXPECTED DATA 
(1) 011626 017701 170064 MOV RXOBUF, ai ZACTUAL DATA 
(1) 011632 020001 CMP a0 Rl “:COMPARE EXP VS ACT 
(1) 011634 001401 BEQ +4 
(1) 011636 10400 ERROR 2 :DATA CHARS SHOULD COMPARE 
(1) 011640 105777 170046 TSTB —@RXCSR [CHECK RXDONE 
(1) 011644 100001 BPL 
(1) 011646 104004 ERROR 4 DONE SHOULD BE CLR FROM 
(1) previous” READING OF RXDBUF 

8543 r:THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
qa) + RECEIVER SECTION, I T USES THE ERR 
(1) 3370 DETERMIN E THAT IT WAS SELERTED CORRECTLY 
(1) 3 (OV VRRUN  RXE PER) 
(1) DE: 1SYMOD 
(1) 3 SMODE <1 FIVE 
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‘CNDUQA.M11 -—- 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0057 
| a r:CHAR:25 
| (5) °  eReREReeeeeeeeReeetereredeteeeeeeedeeeatetererareteeerereeeeeer 
| (4) 011650 000004 TST60: SCOPE 
' (3) 011652 052777 000400 170046 BIS WMRESET,a@TXCSR ;MASTER RESET 
(2) 011660 012777 000000 170034 MOV MISYMOD,a@PARCSR :SET THE MODE 
(3) 011666 052777 000400 170032 BIS WMRESET.a@TXCSR :MASTER RESET 
| (2) 7SET MAINT DATA,CLK,BREAK,@MAINTENANCE MODE 
| (3) 011674 012777 064001 170024 MOV #MTDATA!CLK! MINT !BREAK,@TXCSR 
(2) :SET MODE ,# OF BITS,PARITY SENSE,8LOAD SYNC REG 
| (2) 011702 012777 000000 17001 MOV #ISYMOD! F IVE 'NOPAR!0, @PARCSR 
(2) 011710 052777 000020 167774 BIS WSYNSCH,@RXCSR ;SET SYNC SEARCH 
(2) 3POKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
(2) 011716 042777 020000 170002 BIC #CLK ,@TXCSR : CLK DOWN 
(2) 011724 052777 020000 167774 BIS #CLK,aTXCSR *POKE CLK UP 
(2) 3POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(2) 011732 042777 020000 167766 BIC #CLk,aTXCSR :POKE CLK DOWN 
(2) 011740 052777 02 167760 BIS #CLKaTXCSR ZPOKE CLK UP 
(1) 011746 016703 167744 MOV RXDBUF ,R “SET UP FOR ERROR MESSAGE 
(1) 011752 012700 000025 MOV #25 .RO FEXPECTED 
(1) 011756 012767 000007 167136 MOV #7, SHIFT 74 OF SHIFTS 
(1) 011764 012767 000152 06 #152,$TMP1 ‘DATA CHAR 
(1) 011772 004767 005126 JSR PC ,RPOK “SHIFT IN THIS CHAR 
(1) 011776 105777 167710 TSTB @RXCSR ;RXDONE ? 
(1) 912002 100401 I .+ 
(1) 012004 104004 ERROR 4% ;RXDONE SHOULD BE SET 
(1) 012006 017701 167704 MOV @RXDBUF ,R1 A 
(1) 012012 020001 CMP RO,R1 —;COMPARE EXPECTED VS. ACTUAL 
(1) 012014 001401 BEQ +8 
(1) 012016 104002 ERROR 2 :RECEIVED DATA DID NOT MATCH 
(1) SEXPECTED DATA = CHECK MAINT DATA 
(1) [OR RECEIVER LOGIC 
(1) 012020 012767 000007 167074 MOV #7, SHIFT :# OF SHIFTS 
(1) 012026 012767 000152 167444 MOV #152, $TMP1 SDATA CHAR 
(1) 012034 004767 005064 JSR PC RPOKE ‘SHIFT IN THIS CHAR 
(1) zNOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
(1) 012040 012767 000007 167054 MOV #7, SHIFT 34 OF SHIFTS 
(1) 012046 012767 000152 167424 MOV 4152, $TMP1 [DATA CHAR 
(1) 012054 004767 005044 JSR PC RPO SSHIFT IN THIS CHAR 
(1) 012060 012700 140025 MOV #140000'25,R0 EXPECTED DATA PLUS 
(1) sRXERR & OVRRUN 
(1) 012064 017701 167626 MOV @RXDBUF RI SACTUAL 
(1) 012070 020001 CMP RO.R1 ‘sCOMPARE EXP VS. ACT 
(1) 012072 001401 BEQ + 
(1) 012074 104602 ERROR 2 :SPECIFICALLY LOOK AT RXERR @ 
(1) SOVRRUN BITS...THEY BOTH SHOULD BE SET 
8544 z:THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
(1) T:RECEIVER SECTION, IT USES THE ERROR FLAGS 
(1) 7:70 DETERMINE THAT IT WAS SELECTED CORRECTLY 
(1) 3: (OVRRUN, RXERR) 
(1) + :MODE : 1SYMOD 
(1) 7 LENGTH:FIVE 
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)CNDUQA.M11 =—- 30-OCT-82 12:11 INITIALIZE THE COMMON TAGS SEQ 0058 
| 
a 3 sCHAR: 12 
| (5) PUT TT TT TILT TTT TTT TELE LTTE TTT TTT TTT TTT TTT TTT TT TTT TT TTT TT 
(4) 012076 000004 , 18161: SCOPE 
| (3) 012100 052777 000400 167620 BIS #MRESET,aTXCSR MASTER RESET 
(2) 012106 012777 000000 167606 MOV WISYMOD,aPARCSR :SET THE MODE 
(3) 012114 052777 000400 167604 BIS #MRESET.aTXCSR :MASTER RESET 
(2) ;SET MAINT DATA,CLK BREAK. MAINTENANCE MODE 
(2) 012122 012777 064001 167576 MOV #MTDATA! CLK! MINT !BREAK ,@TXCSR 
(2) :SET MODE ,# OF BITS, PARITY SENSE E -GLOAD SYN SYNC REG 
(2) 012130 012777 000000 167564 MOV #1SYMOD ! F IVE NO 
(2) 012136 052777 000020 167546 BIS #SYNSCH,ARXCSR ;SET SYNC CoEAR 
(2) -POKE CLK TO GET mXCSR iS ENTO SYNCROT SATION... 
(3) 012144 042777 020000 167554 BIC #CLK ,aTXCSR :POKE CLK DOWN 
(2) 012152 052777 02 167546 BIS #CLK,aTXCSR *POKE CLK UP 
(2) :POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(2) 012160 042777 020000 167540 BIC #CLK ,aTXCSR :POKE CLK DOWN 
(2) 012166 052777 020000 167532 BIS #CLK,aTXCSR SPOKE CLK UP 
(1) 012174 016703 167516 MOV RXDBUF ,R3 “SET UP FOR ERROR MESSAGE 
(1) 012200 012700 000012 MOV #12,RO  ;EXPECTE 
(1) 912204 012767 000007 166710 MOV #7 34 OF SHIFTS 
(1) 012212 012767 000124 167260 MOV #124,$TMP1 
(1) 012220 004767 004700 JSR PC, RPOKE <SHIFT IN THIS CHAR 
(1) 012224 105777 167462 ste ARKCSR :RXDONE ? 
(1) 918535 pec ERROR &- RXDONE SHOULD BE SET 
(1) 012234 017701 167456 MOV @RXDBUF FRI 
(1) 012240 020001 CMP RO Rl ‘:COMPARE EXPECTED VS. ACTUAL 
(1) 012242 001401 BEQ .+ 
(1) 012244 104002 ERROR 2 RECEIVED DATA DID NOT MATCH 
(1) SEXPECTED DATA = CHECK MAINT DATA 
(1) [OR RECEIVER LOGIC 
(1) 012246 012767 66646 MOV #7, SHIFT :# OF SHIFTS 
(1) 012254 012767 000124 167216 MOV #124, STHPI DATA, CHAR 
(1) 012262 004767 004636 JSR PC,RPOKE :SHIFT IN THIS CHAR 
(1) zNOW SHIFT IN A SECOND CHARACTER’ WITHOUT READING RXDBUF 
(1) 012266 012767 7? 16662 MOV #7,SH 34 OF SHIFTS 
(1) 012274 012767 000124 167176 MOV widen STMP1 :DATA CHAR 
(1) 012302 004767 004616 JSR PO SHIFT IN THIS CHAR 
(1 012306 012700 140012 MOV #140000! 12,R0 i OECTED DATA Us 
(1) 012312 017701 167400 MOV @RXDBUF ,R1 * ACTUAL 
(1) 012316 020001 CMP RO,R1 ‘:COMPARE EXP VS. ACT 
(1) 012320 001401 BEQ a 
(1) 012322 104002 ERROR 2 :SPECIFICALLY LOOK AT RXERR & 
(1) SOVRRUN BITS...THEY BOTH SHOULD BE SET 
8545 
8546 
(2) sEND OF PASS 
(2) YPE NAME OF TEST 
(2) * UPDATE PASS COUNT 
(2) ZCHECK FOR EXIT TO ACT-11 
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(CNDUQA.M11 = 30-OCT-82 12:1 INITIALIZE THE COMMON TAGS SEQ 0059 
(2) :RESTART TEST 
| 
| (2) 012324 000004 .EOP: SCOPE 
| = «3) 018526 004767 000340 JSR PC, CKSWR 
| (2) 012332 104401 TYPE :TYPE NAME OF TEST 
(2) 012334 015463 MEPASS 
(2) 012336 104413 012570 CONVRT ,OUTCRY 
(2) O12 104401 015302 TYPE DEVICE 
(3) 012 6 105767 166600 1STB  MULTD  ;ARE YOU RUNNING MULTIPLE DEVICES ? 
(2) 012352 001511 BEQ ccc NO, JUMP 
(3) 012354 005767 166606 TST ACTREG :ARE ANY DEVICES ACTIVE ? 
(2) 012360 001007 BNE RUNIT YES 
(2) 012362 104401 015314 TYPE ,MCOW :NO 
(2) 012566 016700 166574 MOV ACTREG, ri” :DISPLAY ACTREG 
(2) 012372 000000 HALT SEL T SOMETHING TO RUN @ ACTREG: 
(2) sSELECT SWITCHES & HIT CONTINUE (PUT S 
(2) 012374 000167 167552 MP START START over AGAIN......YOU DESELECTED EVERYTHING 
(2) 012400 062767 000010 166546 RUNIT: ADD #10, BASEADD zNEXT BLOCK (ADDRESSES) 
(3) 012406 062767 000010 166546 ZERO: ADD #10.BASELV SNEXT BLOCK (VECTORS) 
(2) 012416 166546 ROL ROTADD ;UP DATE ROTATING POINTER 
(2) 012422 103410 BCS 2$ t1$ IT THE LAST DEVIC 
(2) *TO BE TESTED IN THIS PASS ? 
(2) 012424 036767 166540 166534 BIT ROTADD,ACTREG  ;TEST THIS DEVICE fon ACTIVE STATUS 
(2) 012432 001762 BEQ RUNIT  ;IF NOT ACTIVE, TRY NEXT ADDRESS 
(2) 0124 000034 JSR PC REPLAY sCALCULATE NEW PARAMET ERS 
(2) 012440 000210 JMP RESTRT ;YES IT WAS ACTIVE,TEST THIS DEVICE 
(2) 012444 012767 000001 166516 28: MOV #1 ,ROTADD 70k! .NOW SET UP ROTATING 
(2) INTER FOR NEXT MULT PLE PASS 
(2) 012452 016767 166500 166474 MOV KEEPADD ,BASEADD :RESTORE BASE ADDRESS 
(2) 012460 016767 166500 166474 MOV KEEPIV,BASEIV :RESTORE BASE INTERRUPT VECTORS 
(2) 012466 004767 000002 JSR PC REPLAY *CALC NEW PARAMETERS 
(2) 012472 000441 BR cc UMP AROUND REPLAY 
(2) 012674 016767 166454 004420 REPLAY: MOV BASEADD, boBASE 7SET UP FOR NEW ADDRESSES 
(2) 012502 004767 004262 JSR PC ,DUADOR [CREATE NEW ADDRESSES 
(2) 012506 016767 166450 167222 MOV BASE IV DURLV [CREATE DURIV 
(2) 012514 062767 900002 166440 ADD BASEIV 
(2) 012522 016767 166434 167210 MOV tte DURIS § ;CREATE DURIS 
(2) 012530 062767 000002 166424 ADD #2, 
(2) 012536 016767 166420 167176 MOV BASELV DUTIV :CREATE DUTIV 
(2) 012544 062767 000002 166410 ADD 
(2) 012552 016767 1664 167164 MOV gaelv. DUTIS :CREATE DUTIS 
(2) 012560 016767 167152 166374 MOV DURIV,BASELV § :RESTORE 
(2) 012566 207 RTS PC 
(2) 012570 000001 OUTCRY: 1 
(2) 012572 002 .BYTE 6,2 
012574 00171 RXCSR 
(2) 012576 ccc: 
(2) 01 576 005067 166600 CLR STSTNM :CLEAR TEST NUMBER 
2) 01260 005067 166610 CLR SERRPC [CLEAR LAST ERROR PC 
(2) 01 606 5067 166571 CLR SERFLG [CLEAR ERROR FLAG 
(2) 01261 5267 166276 INC PASCNT SUPDATE PASS COUNT 
(2) 012616 016767 166 20 166256 MOV PASCNT LIGHTS [DISPLAY PASS COUNT 
(2) 012624 016767 166262 16670 MOV PASCNT.$PASS [PASS COUNT TO APT 
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(2) 012632 013701 000042 MOV a#42,R1 *CHECK FOR ACT=11 OR DDP 
(2) 012636 0014 BEQ orerkt z1F NO CONTINUE TESTING 
(2) 012640 RESET 
(3) 012642 000005 RESET 
(2) 012644 004711 SENDAD: JSR PC,(R1) 
(3) 012646 000240 NOP 
(2) 012650 000240 NOP 
(2) 012652 000240 NO 
(2) 012654 RESTRT: 
(2) 012654 012767 003376 166524 MOV #TST1#2,$LPADR ;LOAD LAST ADDR 
(2) 012662 004767 000004 JSR PC, CKSWR 
(2) 012666 000167 170416 JMP .BEGI 
(2) :CHECK SWITCH REGISTER ROUTINE. 
(2) ‘CHECKS TO ALLOW FOR <*G> TO ALLOW 
(2) :THE CHANGING OF LOCATION 176 
(2) 012672 005737 000042 CKSWR: TST av42 
(2) 012676 001040 BNE OUT 
(2) 012700 022767 000176 166532 CMP #SWREG, SWR :SOFTWARE SWR PRESENT? 
(2) 012706 001034 BNE OUT [NO="LEAV 
(2) 012710 105777 166530 TST8 © aS TKS *CHECK TTY READY 
(2) 012714 100031 BPL Ou :NO-- 
(2) 012716 017767 199835 000422 MOV a$TKB, .MSG [GET CHARACTER 
(2) 012724 042767 17760 000414 BIC #177660, .RSG ?STRIP JUNK 
(2) 012732 122767 000406 CMPB 71S IT <*G> ? 
(2) 012740 001017 BNE out’ NO 
(3) O1g742 104401 ne TYPE MCNTG 
(2) 012746 005137 013006 CNTLU: COM aaRDSW 
(2) 012752 104401 016100 TYPE  ,MMSWR 
(2) 012756 104413 CONVRT 
(2) 012760 013010 SWREGL 
(2) 012762 104406 016111 INSTR, MMNEW 
(2) 012766 104410 PARAM 
(2) 012770 000000 
(2) 012772 177777 177777 
(2) 012774 000176 SWREG 
(2) 012776 000 001 .BYTE 0,1 
(2) 013000 005037 013006 OUT: CLR a#RDSW 
(2) 013004 000207 RTS PC 
(2) 013006 RDSW:  .WORD 
(2) 013010 000001 SWREGL: 7 
(2) 013012 006 002 .BYTE 6,2 
(2) 013014 000176 SWREG 
sh 013016 000005 5 
(2) ZCHECK FOR FREEZE ON CURRENT DATA 
(33 013020 004767 177646 .SCOP1: JSR PC, CKSWR 
(2) 013024 032777 001000 166406 BIT #SW09,aSWR 
(2) 013032 001402 BEQ 
(3) 013054 016716 166050 MOV LOCK, (SP) 
(2) 013040 000002 T 
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(3) FF AAAAAEAAAAEAAAAAAAAATAE TAREE AEE EAAEAAAEAATRARAEAEAEERARAEEEREERERE 

(2) s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

(2) s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

(2) s*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

(2) s*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

: ; s*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
;* 

(2) 3*CALL: 

(2) 3*1) USING A TRAP INSTRUCTION 

ts} 3* TYPE »MESADR s3sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3* 

(2) 3* TYPE 

(2) 3* MESADR 

(33 - 

&) 013042 105767 166411 STYPE: TSTB STPFLG 3318S THERE A TERMINAL? 

(2) 013046 100002 BPL 18 3:BR IF Y 

(2) 013050 000000 HALT szHALT HERE IF NO TERMINAL 

(2) 013052 0004350 3$ 33 

(2) 013054 010046 1$: MOV RO,-(SP) zzSAVE RO 

(2) 013056 017600 000002 MOV a2(SP),RO 33:GET ADDRESS OF ASCIZ STRING 

(2) 01 122767 000001 166456 CMPB #APTENV, SENV 3: 2RUNNING IN APT MOD 

(2) 013070 001011 BNE 32N0,GO CHECK FOR APT CONSOLE 

(2) 013072 132767 000100 166447 BITB #APTSPOOL ,SENVM ;;SPOOL MESSAGE TO APT 

(2) 013100 001405 BEQ 62$ 3:N0,GO CHECK FOR CONSOLE 

(2) 013102 010067 000004 MOV RO,61$ +: SETUP MESSAGE ADDRESS FOR APT 

(2) 013106 004767 164674 JSR PC, SATY3 3zSPOOL MESSAGE TO APT 

(33 Bt alie 618: -WORD 0 :sMESSAGE ADDRESS 

(2) 01311 1 67 000040 166425 62$: BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 

ts) 013122 001003 BNE 60$ 3:VES,SKIP TYPE OUT 

(2) 013124 112046 2s: MOVE (RO)+,=-(SP) 3;PUSH CHARACTER TO BE TYPED ONTO STACK 

(2) 013126 001005 BNE 4$ 3:BR IF IT ISN'T THE TERMINATOR 

(2) 013130 005726 TST (SP)+ 32:1f TERMINATOR POP IT OFF THE STACK 

(2) 013132 012600 60$: MOV (SP)+,RO0 RESTORE RO 

(2) 013134 062716 000002 3$: ADD #2, (SP) sz;ADJUST RETURN PC 

(2) 013140 000002 RTI 33 

(2) 013142 122716 000011 4$: CMPB #HT, (SP) 7:BRANCH IF <HT> 

(2) 013146 001430 BEQ 

(2) 013150 122716 000200 CMPB #CRLF, (SP) 7:BRANCH IF NOT <CRLF> 

(2) 013154 001006 BNE 

(2) 013156 005726 TST (SP)+ 3:POP <CR><LF> EQUIV 

(2) 013160 104401 TYPF sz TYVE A CR AND LF 

(2) 013162 001523 SCHLF 

(2) 013164 105067 000130 CLRB SCHARCNT ;zCLEAR CHARACTER COUNT 

(2) 013170 000755 BR 2s ::GET NEXT CHARACTER 

(2) 013172 004767 000056 5$: JSR PC ,STYPEC 3:G0 TYPE THIS CHARACTER 

(2) 013176 126726 166254 6$: CMPB SFILLC,(SP)+ 7218S IT TIME FOR FILLER CHARS.? 

(2) 013202 001350 BNE 321F NO GO GET NEXT CHAR. 

ts) 013204 016746 166244 MOV SNULL ,-(SP) 3 3GET oo ete CHARS. NEEDED 

ts) 013210 105 000001 7$: DECB 1(SP) 3:D0ES A NULL NEED TO BE TYPED? 

(2) 013214 0027 BLT 6$ 3:BR IF NO--GO POP THE NULL OFF OF STACK 

ts} 013538 00476 32 JSR PC ,STYPEC 3:G0 TYPE A NULL 

(2) 01322 109307 0072 DECB SCHARCHT 3200 NOT COUNT AS A COUNT 

ts) 013226 000770 BR $ 33LOOP 
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TINE SEQ 0062 
3} sHORIZONTAL TAB PROCESSOR 

(2) 013230 112716 000040 8$: move 3s #"-—«, (SP) s:REPLACE TAB WITH SPACE 

(2) 013234 004767 000014 9$: JSR BC. STVPEC S:TYPE A SPAC 

(2) 013240 132767 000007 000052 BITB #7.S$CHARCNT ‘BRANCH IF NOT AT 

(3) 01324 001372 BNE 9$ 7:TAB STO 

(2) 013250 005726 TST (SP)+ S:POP SPACE OFF STACK 

(3) 013252 000724 BR 2$ 7:GET NEXT CHARACTER 

(2) 013254 105777 166170 STYPEC: TSTB  a$TPS t:WAIT UNTIL PRINTER IS READY 
(2) 013260 100375 BPL STYPEC 

(3) 013262 116677 000002 166162 . MOVB 2(SP),a$TPB s;LOAD CHAR TO BE TYPED INTO DATA REG. 
(2) 013270 122766 000015 000002 cMPB #CR,2(SP) z31S CHARACTER A CARRIAGE RETURN? 
(2) 013276 001003 BNE 1$ :z;BRANCH IF NO 

(2) 013300 105067 000014 CLRB  § $CHARCNT t:YES==CLEAR CHARACTER COUNT 
(2) 013304 000406 BR TYPEX szEXIT 

(2) 013306 122766 000012 000002 1$: CMPB es ML, 2( SP) t:1S CHARACTER A LINE FEED? 
(2) 013314 001402 BEQ $TYPEX ::BRANCH IF YES 

(2) 013316 105227 INCB (PC) + t:COUNT THE CHARACTER 

(2) 013320 000000 SCHARCNT: .WORD S: CHARACTER COUNT STORAGE 
(2) 013322 000207 STYPEX: RTS PC 

(2) 

3 

(2) ZASCII STRING INPUT ROUTINE 

(2) 013324 017667 000014 INSTR: MOV a(SP),.MSG :PICK UP MESSAGE 

($} or 3895 Or 59%6 iti ADD #2, (SP) S JUMP AROUND MESSAGE FOR RTI 
(2) 013336 105767 166204 TSTB —- SENV TAPT CONTROL 

(2) 013342 001036 BNE INSTR2 [YES NO TYPE 

(2) 013344 104401 .INST1: TYPE 

(2) 013346 000000 "MSG: 0 

(2) 013350 012704 016124 MOV #INBUF ,R4 :GET STARTING LOC OF INBUF 
(2) 013354 012703 07 MOV #7,R 4 HARS 

(2) 013360 105777 166060 1$: TSTB © aStkKS TTY FLAG 

(3) 013364 100375 BPL 

(2) 013366 117714 166054 MOVB a$TKB, (R4) : TAKE CHAR 

(2) 013372 142714 000200 BICB #200, (R4) *STRIP 

(2) 013376 121427 000025 CMPB Ss (RG) . #25 t1S IT <*G> 

(2) 013402 001760 BEQ INSTI 

(2) 013404 122427 000015 CMPB ss (RG) +, #15 :CHECK FOR CR 

(2) 013410 001413 BEQ INSTR 

(2) 013412 105777 166032 2$: TSTB aSTPS ;TEST FLAG 

(2) 013416 100375 BPL 

(2) 013420 117777 166022 166024 MOVE aSTKB,aSTPB sECHO CHARACTER 

(2) 013426 005303 DEC R3 sD1D YOU TYPE TOO MANY CHARS ? 

(3) 013430 001353 BNE a 

(2) 013432 104401 .INSTE: TYPE 

(2) 013434 015410 MOM 2? 

(2) 013456 000742 BR "INSTI RETRY 

3 013440 000002 INSTR2: RTI 

( ) ZCONVERT ASCII STRING TO OCTAL 

{5} 013442 011605 .PARAM: MOV (SP),RS ;PUT CONTENTS OF SP INTO RS 
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(2) 013444 012567 000162 MOV (R5)+,LOLIM :PUT LOW LIMIT INTO LOLIM 
(2) 013450 O1¢567 900160 MOV (R5)+,HILIM :PUT HIGH LIMIT INTO HILIM 
(2) 013454 012567 000156 MOV (R5)+,DEVADR § :PUT STORE LOC INTO DEVADR 
(2) 013460 112567 000154 MOVB (R5)*,LOBITS | ;PUT MASK INTO LOBITS 
(2) 013464 112567 000151 MOVB (R5)+,ADRCNT PUT COUNT INTO ADRCNT 
(2) 013470 010516 MOV RS,(SP) ;RESTORE RETURN ADOR ON STACK FOR RTI 
(2) 013472 005005 PARAM1: CLR R5 
(2) 013674 012704 016124 MOV #INBUF ,R4 
(2) 013500 122714 000015 CMPBs«#'15,, CR) “CR ? 
(2) 013504 001420 BEQ PARERR ;YOU TYPED CR TOO SOON ! 
(3) 013506 121427 000060 1$: CMPB —s« (RG) , #60 3LOW LIMIT ASCII 0 
(2) 013512 002415 BLT RER 
(2) 013514 121427 000067 CMPB ss (R4) , #67 :HIGH LIMIT ASCII 7 
(2) 013520 003012 BGT RER 
(2) 013522 142714 000060 BICB ~ #60, (R4) :CONVERT TO OCTAL 
(2) 013526 152405 BISB  (R4S+,R5 ‘STORE AWAY ITS AN OK CHAR 
(2) 013530 122714 000015 CMPB ss #15, (RG) “CR ? 
(2) 013534 001414 BEQ LIMITS ;NOW CHECK FOR HIGH SLOW LIMIT CONDS 
(2) 013536 305 ASL R5 SALLOCATE ROOM FOR NEXT CHAR 
(2) 013540 305 ASL R5 
(2) 013542 006305 ASL R5 
(2) 013544 000760 BR 1$ 
(2) 013546 122714 000015 PARERR: CMPB #15, (R4) CR? 
(2) 013552 001003 BNE 1208 
(2) 013554 005737 013006 TST a4#RDSW "CK SWR USED 
(2) 013560 001023 BNE PARTI 
(2) 013562 104407 120$: INSTER ;RETRY 
(3) 013564 000742 BR PARAM1 
(2) :TEST TO SEE If NUMBER IS WITHIN LIMITS 
(2) 013566 020567 000042 LIMITS: CMP R5,HILIM 
(3) 013572 101365 BHI PARERR ;THE # IS TOO HIGH 
(2) 013574 020567 000032 CMP R5,LOL 
(2) 013600 103762 BLO PARERR ;THE # IS TOO LOW 
(2) 013602 136705 000032 BIT LOBITS,R5 ZTEST BY MASKINGTHE # 
(2) 013606 001357 PARERR 
(2) :STORE NUMBER AT SPECIFIED ADDRESS 
(2) 013610 016704 000022 MOV DEVADR,R4 :GET STARTING ADDR OF 
(2) 013614 010524 1$: MOV RS, (R4S+ *STORE AT THIS ADDR 
(2) 013616 062705 900002 ADD , 
(2) 013622 105367 00001 DECB ADRCNT ;HOW MANY TIMES + 2 ? 
(2) 013626 001372 BNE 1$ 
(2) 013630 000002 PARTI: RTI 
(2) 013632 000000 LOLIM 
(2) 013634 000000 HILIM 
(2) 013656 000000 DEVADR 
(2) 013640 000000 LOBITS: 0 
013641 ADRCNT=LOBITS+1 
@) :SAVE PC OF TEST THAT FAILED AND RO-RS 
) 013642 016667 000004 165256 .SAVOS: MOV 4(SP),SAVPC 
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8} ZSAVE RO-RS | 
(2) 013650 010567 165620 Sv0S: MOV RS, $REGS 
(2) 013654 010467 16561 MOV R4,$ : 
(2) 013660 010367 165604 MOV R3,$REG 
(2) 013664 010267 165576 MOV R2,$REG | 
(2) 013670 010167 165570 MOV R1,$REG1 | 
(2) 013674 010067 165562 MOV RO, $REGO 
(2) 013700 000002 RTI | 
(2) sRESTORE RO-R5 
(2) 013702 016700 165554 -RESOS: MOV $REGO,RO | 
(2) 013706 016701 165552 MOV $REG1,R1 
(2) 01371 016708 165550 MOV SREG2,R 
(2) 013716 016703 165546 MOV SREG3,R 
(2) 013722 016704 165544 MOV SREG4 RG 
(2) 013726 016705 165542 MOV SREGS,RS | 
(2) 013732 000002 RTI | 
(2) :CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER | 
(2) 013734 104401 .CONVR: TYPE 
(2) 013736 015414 MCRLF ;CR_ LF 
(2) 013740 017601 000000 MOV a(SP),R1 :PICK UP DATA POINTER 
(2) 013744 062716 000002 ADD #2,(SP) ;SET UP SP FOR RT 
(2) 013750 012167 000130 MOV (R1)+,WROCNT | ;PICK UP # OF WORDS FROM TABLE 
(3) 013754 112167 126 1$: MOVB (R1)*,CHRCNT ;:PICK UP # OF CHARS FROM TABLE 
(2) 013760 112167 1 MOVB (R1)#,SPACNT :PICK UP # OF SPACES FROM TABLE 
(2) 013764 013167 000120 MOV a(R1)+,BINWRD :PICK Up ADDRESS OF MSG 
(2) 013770 016704 114 2s: MOV BINWRD,R4 SAV | 
(2) 013774 116705 000106 MOVB = CHRCNT.RS : SAVE 
(2) 014000 012700 016166 MOV #TEMP,RO :STARTING ADDRESS OF TEMP BLOCK 
(2) 014004 910403 3$: MOV R4_R SAVE 
(2) 914006 2703 177770 BIC #177770,R3 :CLR OUT UPPER BITS .. SAVE CHAR 
(2) 014012 062703 000260 ADD, —#260,R5_:CONVERT TO ASCII 
(2) 014016 110320 MO R3, (RO)+ :STORE AWAY 
(2) 014020 006204 ASR R4 zSHIFT FOR NEXT # 
(2) 014022 006204 ASR R4 :D1TTO 
(2) 014024 606204 ASR R4 :DITTO 
(2) 014026 005305 DEC R5 [DEC CHAR COUNT 
(2) 014030 001365 BNE “DO IT AGAIN ? 
(2) 014032 012703 016230 MOV #MDATA,RS ZSTARTING ADDRESS OF MDATA BLOCK 
(2) 014036 114023 4$: MOVB = = (RO), (R3)+ “REVERSE THE ORDER OF NUMBERS 
(3) 014040 105367 000042 DECB CHRCNT ;DEC CHAR C | 
(2) 014044 001374 BNE 4$ 3 ? 
(2) 014046 105767 000035 TSTB § SPACNT :HOW MANY SPACES ? 
(2) 014052 001405 BEQ 6% “TYPE # IF BR = | 
(3) 014054 112723 000240 5$: MOVB #240, (R35+ :""SPACE’’ IN ASCII 
(2) 014060 105367 DECB SPACNT ;DEC # OF SPACE COUNT | 
(2) 914064 001373 BNE D0 IT AGAIN ? 
(2) 014 10501 6$: CLRB (R3) INSERT O'’ FOR TTY OUTPUT ROUTINE 
(2) 014070 104401 TYPE 
(2) 01407, 1628 MDATA ;THIS MESSAGE 
(2) 014074 005 000004 DEC WRDCNT ;HOW MANY #°S ? 
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(2) 914100 001325 BNE 1$ DO THIS ROUTINE AGAIN IF NOT EQUAL TO 0 
(2) 014102 900002 RTI sRETURN TO PROGRAM 
(2) 014104 WRDCNT: 
(2) 014106 CHRCNT: 
(2) 01410 SPACNT=CHRCNT+1 
014110 000000 BINWRD: 0 
) :COMPARE THE FIRST aGHARACTER, IN THE TELETYPE INPUT 
(2) [BUFFER TO THE CHARACTERS "N'* AND "'Y"*. 
(2) z1F THE CHARACTER IS ‘'N' CLEAR THE FLAG 
(3) TIF THE CHARACTER IS "‘Y’’ SET THE FLAG 
| (2) 014112 017605 000000 .SETFLG:MOV a(sP) RS = 
(2) 014116 122767 000116 002000 CMPB N, INBUF sI1S IT "NW"? 
(2) 014124 001002 BNE ‘s 
(2) 014126 105015 CLRB © (RS) ~—Ss 000 
(2) 014130 000406 BR wae 
(2) 014132 122767 000131 001764 1$: CMPBsé#*Y, INBUF rIS 17 “Y"'? 
(2) 014140 001005 BNE 
(2) 014142 112715 177777 MOVBsft=1, (RS) 3377 
(2) 014146 062716 000002 2$: ADD #2,¢ 
(2) 014152 2 RTI 
(2) 014154 104407 38: INSTER ;RETRY 
(2) 014156 755 * SETFLG 
(3) .SBTTL ERROR HANDLER ROUTINE 
(3) 33 SREREAEAEAAEAAAEAEEAEEEEAEAEEEAEEREEERERAERAREEAEEAEAEAAAEEREAEEEEEREE 
(2) sSTHIS ROUTINE wit INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(2) AVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(2) <A GO TO SAVIT ON ERROR 
(2) teTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(2) 7*SW15=1 HALT ON ERROR 
(2) :*SW13=1 INHIBIT ERROR TYPEOUTS 
(2) :*SW10=1 BELL ON ERROR 
(2) :*SWO9=1 LOOP ON ERROR 
(2) *CALL 
(3) 3* ERROR N s:ERROR=EMT AND N=ERROR ITEM NUMBER 
(2) 014160 SERROR: 
(2) 014160 105 67 165217 7$: INCB = SERFLG :3SET THE ERROR FLAG 
(2) 014164 001775 BEQ 7$ ON'T ter THE FLAG GO TO ZERO 
(2) 014166 016777 165210 165246 MOV STSTNM. DISPLAY SOT SPLAY TEST NUMBER AND ERROR FLAG 
(2) 014176 032777 00200 165236 BIT #B1T10.aSwWR [:BELL ON ERROR? 
(2) 014202 001402 BEQ 1$ ZNO = SKIP 
(2) 914204 104401 001516 TYPE SBELL 3 sRING BELL 
(2) 014210 005267 165176 1$: INC $ERT ‘COUNT THE NUMBER OF ERRORS 
(2) 014214 011667 16517 MOV p) SERRPC [:GET ADDRESS OF ERROR INSTRUCTION 
(2) 014220 162767 00000 165170 SUB RRP 
(2) 014 26 117767 165164 165160 MOVB sséRRPc SITEMB z3STRIP_AND SAVE THE ERROR ITEM CODE 
(2) 014 032777 020000 165176 BIT #B1T13,aSWR +:SKIP TYPEOUT IF SET 
(2) 014242 001004 BNE 208 +:SKIP TYPEOUTS 
(2) 014244 004767 900072 JSR PC, SAVIT 260 TO USER ERROR ROUTINE 
(2) 14 30 104401 00152 ni TYPE  ,$CRLF 
(2) o14984 122767 000001 165264 CMPB = #APTENV,SENV =; ;RUNNING IN APT MODE ie 
(2) 014262 001007 BNE 2$ +:NO,SKIP APT ERROR REPORT . 


NERRUSSSS RMON 
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116767 1osigh 
004767 163520 
000 
000 
000777 
005777 165132 
10000 
032777 001000 
001402 
01671 65062 
005767 165162 
001402 
016716 165154 
atts 164562 
010167 164560 
010267 164556 
010367 164554 
010467 164552 
010567 164550 
016767 165004 
104401 001523 
010046 
005000 
153700 001414 
1004 
016746 164774 
104402 
000426 
005300 
606300 
006300 
062700 001652 
4 067 000004 
1404 
104401 
000000 
104401 001523 
012067 000004 
001404 
104401 
000000 





ERROR HANDLER ROUTINE 


MOVB SITEMB,21$ 73:SET ITEM NUMBER AS ERROR NUMBER 
JSR PC, SATY4 33REPORT FATAL ERROR TO APT 
218: -BYTE 0 
BYTE O 
ses BR 223 a ERROR oo 
$: TST aSWR T ON ERR 
OALT 3$ ia IF CONTINUE 
3$: BIT #B1T09,aSWR 33;LOOP ON ERROR SWITCH SET? 
BEQ 4 :BR IF NO 
MOV SLPERR, (SP) : FUDGE RETURN FOR LOOPING 
4$: ace SESCAPE 4h + Ha ESCAPE ADDRESS 
5 MOV SESCAPE, (SP) ZzFUDGE RETURN ADDRESS FOR ESCAPE 
RTI 7 RETURN 
SAVIT: MOV RO,HLDO 
MOV R1,HLD1 
MOV R2,HLD2 
MOV R3,HLD 
MOV R4,HLD4 
MOV RS 


eHLD5 
MOV STSTNM,HLD6 
~-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


SERAAAAAAAAAAAAAEEEEREREEEEEEEEEEEAEEREREREEREREEEEREEREEEREEREE 


SSTHIS wit y USES THE ““ITEM CONTROL he fsirers) TO eres WHICH 


S*ERROR IS TO BE REPORTED. IT THEN OBTAINS, F E “ERROR TABLE’ (SERRTB), 
[*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE MORROR 
SERRTYP: - 
TYP SCRLF r:""CARRIAGE RETURN’ & “LINE FEED" 
MOV RO, -(SP) 7: SAVE 
CLR RO’ [PICKUP THE ITEM INDEX 
BIS8 a#SITEMB,RO 
BNE 1$ iF ITEM NUMBER IS ZERO, JUST 
STYPE THE PC OF THE ERROR 
MOV SERRPC,-(SP) etn SERRPC FOR TYPEOUT 
TyPoc m $360 TYPE==OCTAL ASCIICALL DIGITS) 
1$: DEC RO 3 SADJUST THE INDEX SO THAT IT WILL 
ASL RO 33 WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #SERRTB RO z3FORM TAPLE POINTER 
MOV )+,28 S:PICKUP ‘ERROR MESSAGE’ POINTER 
BEQ $30 33 SKIP TYPEQUT IF NO POINTER 
TYPE S:TYPE THE ERROR MESSAGE’ 
2s: .WORD 0 32ERROR MESSAGE’’ POINTER GOES HERE 
TYPE ,S$CRLF 3: CARRIAGE R RETURN’ & “LINE FEED 
3$: MOV (RO)+,4$ ::PICKUP ‘DATA HEADER’ POINTER 
BEQ 5$ 33SKIP TYPEQUT IF 
TYPE 33TYPE THE "DATA HEADER 
4$: .WORD 0 "DATA HEADER" POINTER GOES HERE 
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CNDUQA.M11 --: 30-OCT-82 12:11 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0067 

(3) 014472 104401 001523 TYPE  ,$CRLF is CARRIAGE RETURN f "LINE FEED" 

(3) 014476 011000 5$: MOV (RO) RO ::PICKUP ‘DATA TABLE’ POINTER 

(3) 014500 001004 BNE : +:G0 TYPE THE DATA 

(3) 014502 012600 6$: MOV (SP)+,RO S:RESTORE RO 

(3) 014504 104401 001523 TYPE SCRLF is CARRIAGE RETURN’ & ‘LINE FEED’ 

(3) 914319 000207 - RTS PC +: RETURN 

(4) PEE: 013046 MOV a(RO)+,<(SP) i: SAVE @(RO)+ FOR TYPEOUT 

(4) 014514 104402 TYPOC 3360 TYPE~-OCTAL ASCIICALL DIGITS) 

(3) 014516 005710 TST (RO) t1$ THERE ANOTHER NUMBER? 

(3) 014520 001770 BEQ 6$ 7:BR IF NO 

(3) 014522 104401 014530 TYPE ag S:TYPE TWO(2) SPACES 

(3) 014526 000771 BR *$ + LOOP 

(3) 014530 020040 000 8$: eASCIZ / / +:TWO(2) SPACES 

(3) 014534 EVEN 

(2) .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

(3) J RRRRAEAARAEEEREREEEER EE EERE EEEEEERREEEEEEEEEREEREEEREEEEEEEEEEEE 

(2) tSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

(2) 3 #OCTAL (ASCII) NUMBER AND TYPE IT. 

(2) : *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
te 

(2) ie MOV NUM,=(SP) :NUMBER TO BE TYPED 

(2) it TYPOS SSCALL FOR TYPEOUT 

(2) ie .BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

(2) 3* .BYT x :3M=1 OR A! 

(3) te 1=TYPE LEADING ZEROS 

(2) 7* tZ0=SUPPRESS LEADING ZEROS 
3% 

(2) :®$TYPON==-=ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

(2) ; *STYPOS OR $TYPOC 

(2) CALL: 

(2) ie MOV NUM, -(SP) :;NUMBER TO BE TYPED 

(2) * TYPON S:CALL FOR TYPEOUT 
ge 

(2) i ¥$TYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

(2) * MOV NUM, =(SP) ::NUMBER TO BE TYPED 

ts) 3* TYPOC :;CALL FOR TYPEOUT 

(2) 014534 01764 STYPOS: MOV a(SP),-(SP) z:PICKUP THE MODE 

(3) 014540 116667 000001 000211 MOVB © 1(SP),$OFILL 3;LOAD ZERO FILL SWITCH 

(2) 014546 112667 000207 MOVB © (SP)+.$OMODE+1 ::NUMBER OF DIGITS TO TYPE 

(2) 014552 062716 000002 ADD #2,(SP) S:ADJUST RETURN ADDRESS 

(2) 014556 000406 BR $TYPON 

(2) 014560 112767 000001 000171 $TYPOC: MOVB 4#1,$0FILL z3$ET THE ZERO FILL SWITCH 

(2) 014566 112767 000006 000165 MOVB  #6,S$OMODE+1 z3SET FOR SIX(6) DIGITS 

(2) 014574 112767 000005 000154 $TYPON: MOVB #5,$OCNT 33 SET 1 THE ITERATION COUNT 

(2) 014602 010346 MOV R3,-(SP) 

(2) 014604 010446 MOV R4,=(SP) 128, VE RZ 

(2) 014606 010546 MOV R5.=(SP) SI SAVE RS 

(2) 014610 116704 000145 MOVB  $OMODE+1,R4 t2GET THE NUMBER OF DIGITS TO TYPE 

(2) 014614 005404 NEG RG 

(2) 014616 062704 900006 ADD #6,R4 z:SUBTRACT IT FOR MAX. ALLOWED 

(2) 014622 110467 0001 MOVB R4.$OMODE [:SAVE IT FOR USE 
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CNDUQA.M11 30-OCT-82 12:11 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0068 
(2) 014626 116704 000125 MOVB SOFILL, R4 3GET THE ZERO FILL SWITCH 
(2) 014632 016605 000012 MOV th RS 33PICKUP THE INPUT NUMBER 
(2) 014636 005003 CLR ZECLEAR THE OUTPUT, ORD 
(2) 014640 006105 1$: ROL R5 ROTATE MSB € 
(2) 014642 000404 BR 3g :60 DO MSB 
(2) 014646 006105 2$: ROL R5 :SFORM THIS DIGIT 
(2) 014646 006105 ROL R5 
(2) 014650 006105 ROL R5 
(2) 014652 010503 MOV R5,R3 
(3) 014654 006103 3$: ROL R3 :3GET LSB OF THIS DIGIT 
(2) 014656 105367 000076 DECB  $OMODE 33 TYPE THIS DIGIT? 
(2) 014662 100016 BPL 7$ *:BR IF NO 
(2) 014664 042703 177770 BIC #177770,R3 33GET RID OF JUNK 
(2) 014670 001002 BNE 4$ ST FOR 
(2) 014672 005704 TST RG 3 SUPPRESS THIS 0? 
(2) 014674 001403 BEQ 5$ YES 
(2) 014676 005204 4$: INC R4 3:DONE T SUPPRESS ANYMORE 0°S 
(2) 014700 052703 000060 BIS #°0,R3 MAKE THIS DIGIT ASCII 
(2) 014704 052703 000040 5$: BIS #° (RB + :MAKE ASCII a NOT ALREADY 
(2) 014710 110367 000040 MOVB R3,8$ 23 SAVE FOR TYPING 
(2) 014714 104401 014754 TYPE $ TYPE ats DIGIT 
(2) 014720 105367 00003 7$: DECB 4=s-«s SOCNT +: COUN 
(2) 014724 00334 BGT 2$ 3I8R IF AORE TO DO 
(2) 014726 002402 BLT 63 F 
(2) 014730 005204 INC R4 SZ INSURE LAST DIGIT ISN'T A BLANK 
(2) 014732 000744 BR 2$ £:G0 DO THE LAST DIGIT 
(2) 014734 012605 6$: MOV (SP)+,R5 ERESTORE R RS 
(2) 014736 O12 04 MOV (SP)+,R4 SRES TORE RG 
(2) 014740 012603 MOV (SP)+.R3 S:RESTORE R3 
(2) 014742 016666 000002 000004 MOV 2(SP).4(SP) tSSET THE STACK FOR RETURNING 
(2) 014750 012616 MOV (SP)+, (SP) 
(2) 014752 2 RTI RETURN 
(2) 014754 000 8$ .BYTE 0 + STORAGE FOR ASCII DIGIT 
(2) 014755 000 “BYTE 0 S: TERMINATOR FOR TYPE ROUTINE 
(2) 014756 000 SOCNT: .BYTE 0 S:0CTAL DIGIT COUNTER 
(2) 014757 000 SOFILL: -BYTE 0 33ZERO FILL SWITC 
(2) 014760 000000 SOMODE: .WORD 0 [NUMBER OF DIGITS TO TYPE 
(2) TENTER HERE ON POWER FAILURE 
(2) 
(2) 014762 SPWRDN: 
(2) 014762 010046 -PFAIL: MOV RO,-(SP) ZSAVE RO-RS ON PROCESSOR STACK 
(2) 014764 010146 MOV R1.-(SP) 
(2) 014766 010246 MOV R2,-(SP) 
(2) 014770 010346 MOV R3,-(SP) 
(2) 014772 010446 MOV R4,=(SP) 
(2) 014774 010546 MOV R5.-(SP) 
(2) 014776 016746 163022 MOV 24,=(SP) 
(2) 015 01 164110 MOV SP. SAVSP SAVE STACK POINTER 
(3) 015006 012767 015020 163010 MOV BReStART. 24 SET ue R POWER UP TRAP 
(2) 015014 000000 HALT HAL 1 YON POWER DOWN NORMAL 
(3) 015016 000777 BR , 
@) sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
{3} 015020 016706 164072 RESTAR: MOV SAVSP, SP sRESTORE STACK POINTER 
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\CNDUQA.M11 «30-OCT-82 12:11 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0071 
| (2) 016076 000040 
(2) 016100 051440 051127 020075 MMSWR: .ASCIZ / SWwR= / 
(2) 016106 020040 
(2) 016111 040 020040 042516 MMNEW: .ASCIZ / NEW= / 
(2) 016116 036527 020040 000 
(3) 016124 EVEN 
) ;BUFFERS FOR INPUT-OUTPUT 
(2) 016124 000000 INBUF: 0 
(2) 016166 .=. +40 
(2) 016166 000000 TEMP: 0 
(2) 016230 .=. +40 
(2) 016230 000000 MDATA: 0 
(2) 016272 22440 
(3) *SBTTL SCOPE HANDLER ROUTINESTARS 
(3) ats ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(3) 3 *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(3) AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(3) j*THE SOITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(3) = #SW14=1 LOOP ON TEST 
(3) 3*SW11=1 INHIBIT ITERATIONS 
(3) = #SWO9=1 LOOP ON ERROR 
(3) ; *$W08=1 LOOP ON TEST IN SWR<7:0> 
(3) = *CALL 
3) ze SCOPE :;SCOPE=10T 
(3) 016272 SSCOPE: 
(3) :SCOPE LOOP AND INTERATION HANDLER 
(5) 016272 SCOPE: 
(5) 016272 004767 174374 SR PC, CKSWR 
(5) 016276 005067 163114 CLR SERRPC :CLEAR LAST ERROR P 
(5) 016302 022716 003376 CMP #TST142, (SP) E18 SCOPE AT BEGINING OF TEST 12 
(3) 016306 001422 BEQ S$XTSTR :YES NO LOOP. 
(5) 016310 032777 040000 163122 TTST: BIT #B1T14,aSwWR :THIS CODE IS FOR TESTING FOR BIT 14 
(5) 016316 001412 BEQ 1 [ON LSI WHICH SYSMAC CANNOT HANDLE 
(5) 016320 016767 163056 163060 MOV STSTNM,SLPADR 
(5) 016326 000406 BR 1$ 
(5) 016330 105777 163110 TST8 = @STKS ; KEYBOARD DONE? 
(5) 016334 100123 BPL SOVER F NO 
(5) 016336 017766 163104 177776 MOV a$TKB,-2(SP) CLEAR DONE BIT 
(3) 016344 032777 040000 163066 1$: BIT #BIT14,aSWR ::LOOP ON PRESENT TEST? 
(3) 016352 001114 BNE SOVER “YES IF SW14=1 
(3) :W#HAHHSTART OF CODE FOR THE XOR féSTennense 
(3) 016354 000416 $xTSTR: BR 63 ::1F RUNNING ON T HE XOR TESTER CHANGE 
(3) +: THIS INSTRUCTION’ TO A NOP’ (NOP=240) 
(3) 016356 013746 000004 MOV @FERRVEC,<(SP) :2SAVE THE CONTENTS OF THE ERROR VECTOR 
(3) 016362 012737 01 16402 000004 MOV “5 QFE RRVEC 33SET FOR TIMEOUT 
(3) 016370 005737 177060 TST a#177060 sTIME OUT ON XOR? 
(3) 016374 012637 000004 MOV (SP) + a#ERRVEC i RESTORE THE ERROR VECTOR 
(3) 016400 000463 BR SSVLAD :60 TO T XT TEST 
(3) 016402 022626 5$: CMP (SP)+, (SP)+ SI CLEAR THE STACK AFTER A TIME OUT 
(3) 016404 012637 000004 MOV (SP)+.@#ERRVEC ::RESTORE THE ERROR VECTOR 
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|CNDUQA.M11 =—--30=O0CT=82 12:1 SCOPE HANDLER ROUTINESTARS SEQ 0072 
| (3) 016410 000423 BR 7$ LOOP ON THE PRESENT TEST 
, O16412 6$:;##AHHEND OF CODE FOR THE XOR  TESTERAMANE 
(3) D164] 032777 000400 163020 BIT #B1T08 ,aswR :/L60B ON SPEC. TEST? 
| (3) 016422: 127767 «163012 162752 CMPB Ss @SWR, STSTNM 330N THE RIGHT TEST?  SWR<7:0> 
| 3) 016430 +001465 BEQ SOVER 
(3) 016432 105767 162745 2$: TSTB © $ERFLG 3 SHAS AN. ERROR OCCURRED? 
(3) 016436 001421 BEQ F 
(3) 016440 126767 162751 162735 CMPB $ERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
(3) 016446 101015 BHI ::BR IF NO 
(3) 016450 032777 001000 162762 BIT #B1T09,aSwR t:LOOP ON ERROR? 
(3) 016456 001404 BEQ 33 
(3) 016460 016767 162724 162720 7$: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
(3) 016466 000446 BR SOVER 
(3) 016470 105067 162707 4$: CLRB = SERFLG r2 ZERO THE ERROR FLAG 
(3) 016474 005067 163012 CLR STIMES T:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(3) 016500 000415 BR S:ESCAPE TO THE NEXT TEST 
(3) 016502 032777 004000 162730 3$: BIT #B1T11,aSuR 33INHIBIT ITERATIONS? 
(3) 016510 001011 BNE YES 
(3) 016512 005767 163016 TST S$PASS zIF FIRST PASS OF PROGRAM 
(3) 016516 001406 BEQ 1$ 33 INHIBIT ITERATIONS 
(3) 016520 005267 162660 INC SICNT t: INCREMENT ITERATION COUNT 
(3) 016524 026767 162762 162652 CMP STIMES SICNT 23 CHECK THE NUMBER OF ITERATIONS MADE 
(3) 016532 002024 BGE SOVER [BR IF MORE ITERATION REQUIRED 
(3) 016534 012767 000001 162642 1$: MOV #1,$1CNT dEREINITIALIZE, THE ITERATION COUNTER 
(3) 016542 016767 000056 162742 MOV SHXCNT .STIMES [:SET NUMBER OF ITERATIONS TO DO 
(3) 016550 105267 162626 SSVLAD: INCB  $TSTNM ::COUNT TEST NUMBERS 
(3) 016554 116767 1ee6¢ 162750 MOVB $TSTNM,STESTN ::SET TEST NUMBER IN APT MAILBOX 
(3) 016562 011667 1626 MOV (SP) ,SLPADR S:SAVE SCOPE LOOP ADDRESS 
(3) 016566 011667 162616 (SP) .SLPERR 2 SAVE L 
(3) 016572 005067 162716 CLR SESCAPE [:CLEAR THE ESCAPE FROM ERROR ADDRESS 
(3) 016576 112767 000001 162611 MOVB #1, $ERMAX S:0NLY ALLOW ONE(1) ERROR ON NEXT TEST 
(3) 016604 016777 162572 162630 S$OVER: MOV STSTNM, SDISPLAY ::DISPLAY TEST NUMBER 
(3) 016612 016716 162570 MOV SLPADR, (SP) ::FUDGE RETURN ADDRESS 
(5) 016616 000002 4$: RTI 
(5) 016620 001407 BRW: 1407 
(5) 016622 000432 BRX: 432 
(3) 016624 000005 SMXCNT: 5 ::MAX. NUMBER OF ITERATIONS 
(2) .SBTTL TRAP DECODER 
(3) STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE TRAP’ INSTRUCTI 
(2) SSTHIS ROUTINE WILL PICKUP THE rhQuER BYTE OF THE "*TRAP’’ INSTRUCTION 
(2) [AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(2) [*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
(2) :*GO TO THAT ROUTINE. 
(2) 016626 010046 STRAP: MOV RO,-(SP) s:SAVE RO 
(2) 016630 016600 000002 MOV 2(SP),RO 33GET TRAP ADDRESS 
(2) 016634 005740 TST =(RO) KUP BY 2 
(2) 016636 111000 MOVB (RO), RO 33GET RIGHT BYTE OF TRAP 
(2) 016640 006300 ASL RO POSITION FOR INDEXING 
(2) 016642 016000 016662 MOV STRPAD(RO).RO 3: INDEX TO TABL 
(2) 016646 000200 RTS RO £:G0 TO ROUTINE 
@) 
(2) z:THIS IS USE TO HANDLE THE "'GETPRI"’ MACRO 


[ee 
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(CNDUQA.M11 =—-- 30-OCT-82 12:1 TRAP DECODER 
(2) 
| {33 016650 011646 STRAP2: MOV (SP) ,=(SP) : MOVE THE PC DOWN 
| (2) 016652 016666 000004 000002 MOV 4(SP5,2¢SP) MOVE THE PSW DOWN 
(3) 016660 000002 RTI + RESTORE THE PSW 
| (4) .SBTTL TRAP TABLE 
(4) s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(4) :*BY THE TRAP’ INSTRUCTION. 
(4) : ROUT INE 
(4) 016662 016650 STRPAD: “WORD RAP2 
(4) 016664 013042 STYPE 3; CALL=TYPE TRAP+1 (104401 TTY TYPEOUT ROUTINE 
(4) 016666 014560 YPOC ;;CALL=TYPOC ad SES og 
(4) 016670 014534 STYPOS ;;CALL=TYPOS TRAP+3( 104403 TYPE OCTAL NUMBER 
(3) 016672 014574 STYPON 3; CALL=TYPON TRAP +4 (104404 
(2) 
(3) 016674 013020 .SCOP1 ;;CALL=SCOP1 RAP+5 (104405) 
(3) 016676 013324 INST tICALLEINSTR Ap +6 (104406) 
(3) 016700 013432 -INSTER ;;CALL=INSTER TRAP+7(104407) 
(3) 016702 013442 ePARAM ;;CALL=PARAM TRAP+10( 104410) 
(3) 016704 013642 *SAVOS G3 CALL=SAVOS TRAP+11( 104411) 
(3) 016706 013702 SRESOS 3: CALL=RESO5 TRAP+12(10661¢) 
(3) 016710 013734 - CONVRT S:CALL=CONVRT TRAP+13(104413) 
(3) 016712 014112 SETFLG ::CALL=SETFLG TRAP+14(104414) 
8547 PITT ITITITITITITITITT TTL ITT ITI TTT LiTiitTLit LiL i tii k 
8548 ZUTILITIES 
8549 FRRAAAAAAAAAAAAEAAEEATAAEAEEEEAEAEAEEAAAAREREREEAERAAEREEAEEREEE 
8550 
8551 THIS UTILITY CALCULATES PRIORITY LEVEL 
8552 016714 006367 000044 DULEV: DUPRT  ;SHIFT LEFT 
8553 016720 006367 000040 Ast DUP : 
8554 016724 006367 000034 ASL DUPRT : 
8555 016730 006367 000030 ASL DUPRT 
8556 016734 006367 000024 ASL DUPRT 
8557 016740 016767 000020 000020 MOV DUPRTLESS1 :MOVE THIS TO LESS1 
8558 016746 162767 000001 000012 SUB #1,LESS1 [CREATE LESS1 
8559 016754 042767 000037 000004 BIC a3? LESS1 [CLEAR thove 
8560 016762 000207 RTS 
8561 016764 000240 DUPRT: PRS 
8562 016766 000200 LESS1: PR& ZLEVEL TO ALLOW INTERRUPTS 
8564 :NEW DU ADDRESSES 
8565 016770 016767 000126 162714 DUADDR: MOV DUBASE,RXCSR =; XXXO 
8566 016776 005267 000120 INC 
8567 017002 016767 000114 162704 MOV DUBASE,HRXCSR =: XXX1 
8568 017010 005267 000106 INC DUBAS 
8569 017016 016767 000102 162674 MOV DUBASE ,RXDBUF § : XXX 
8570 170¢2 016767 000074 162672 MOV DUBASE.PARCSR  :XXX 
8571 017030 005267 INC DUBASE 
8572 017034 016767 000062 162656 MOV DUBASE,HRXDBUF ;XXX 
857 017042 016767 000054 162654 MOV DUBASE.HPARCSR XXX 
8574 017050 005267 000046 INC DUBA 
8575 017054 016767 000042 162644 MOV DUBASE,TXCSR —_ : XXX4 


) 

) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
) (NO LEADING ZE 
) TYPE OCTAL NUMBER (AS PER LAST CALL) 


SEQ 0073 


ROS) 


eee + ee ee ee 
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\CNDUQA.M11-- 30-OCT-82 12:11 TRAP TABLE SEQ 0074 
8576 017062 005267 000034 INC DUBASE 
8577 017 016767 000030 162634 MOV DUBASE,HTXCSR  ;XXX5 
8578 017074 005267 00002 INC UBA 
8579 017100 016 67 900016 162624 MOV DUBASE,TXDBUF § ;XXX6 
8580 017106 005267 000010 INC UB 
8581 017112 016767 000004 162614 MOV DUBASE ,HTXDBUF ;XXX7 
8582 017120 000207 RTS PC 
8985 017122 DUBASE: 0 
8585 :THIS UTILITY POKES THE MAINT DATA BASED UPON THE 
8586 : INFORMATION CONTAINED IN $TMP1 AND IT IS 
BSE ‘SHIFTED IN BY THE CONTENTS OF SHIFT 
8588 017124 042777 040000 162574 RPOKE: BIC #MTDATA, @TXCSR 
8589 017132 005067 162344 CLR $TMP2 
8590 017136 7? 162336 ROR STMP1 FORCE CAR 
8591 017142 067 162334 ROR $TMP2  :PICK UP CARRY IN BIT 15 
859 017146 006267 162330 ASR S$TMP2  :SHIFT INTO BIT 14 
8593 017152 042767 100000 162322 BIC #BITIS,$TMP2  ;CLR BIT 15 
8594 017160 056777 162316 162540 BIS STMP2,aTXCSR | :POKE MAINT DATA 
8595 017166 042777 020000 16¢53¢ BIC ACLK,@TXCSR sPOKE CLK 
8596 017174 652777 020000 162524 BIS #CLK,aTXCSR : 
8597 917202 005367 161714 DEC SHIFT 
8598 017206 001346 BNE RPOKE 
8599 017210 400207 RTS 
8601 :THIS ROUTINE CALCULATES ODD PARITY FOR AN 8 BIT CHAR 
8602 017212 016767 162262 162262 ODD8: MOV STMP1,STMP2 :SAVE TEMP1 
8603 017220 5067 162260 CLR g 
8604 017224 012727 10 MOV #8.,(PC)+ 
8605 017230 4$: 0 
8606 017232 006067 162244 1$: ROR STMP 
8607 017236 005567 162242 ADC $TMP 
8608 017242 005367 177762 DEC 4$ 
8609 017246 001371 BNE 1$ 
8610 017250 067 162230 ROR STMP3 
8611 017254 103404 BCS 
Bole 017256 052767 000400 162214 BIS #B81T8,STMP1 :SET ODD PARITY 
8613 017264 000403 BR 
8614 017266 042767 000400 162204 2$: BIC #B1T8,$TMP1 :CLR EVEN PARITY 
8615 -$TMP1 NOW hy ODD PARITY CHARACTER 
8616 017274 000207 3$: RTS PC 
8618 > THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER 
8619 017276 016767 162176 162176 EVENS: MOV STMP1,STMP2 :SAVE TEMP 
8620 01 005067 162174 CLR STMP PS 
8621 017310 012727 000010 MOV #8.,(PC)+ 
8622 017314 4$: 0 
862 017316 7 6 160 1$: ROR STMP. 
8624 0173 5567 1621 ADC STMP 
8625 017326 005567 17776 DEC 4$ 
8626 017332 001371 BNE 1$ 

B 17840 f08006 oe 2 

B65 bi 784 052767 000400 162130 BIS #B1T8,STMP1 :SET EVEN PARITY 
86 017350 900403 BR 3$ 
8631 01735 767 000400 162120 2: BIC #B1T8,STMPI ZCLR ODD PARITY 
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TRAP TABLE 


;STMP1 NOW HAS EVEN PARITY CHARACTER 


3$: 
TRPREG: ADD #2,(SP) ;ALLOW IT TO ‘‘CRUNCH’’ INTO ERROR BACK 
: 3 IN MAIN PART OF THE PROGRAM 


RTI 
Ye sSAVE POINTER 
SCLKVEC sLKVEC HANDLER 
300 s INTERRUPT HANDLER PRI 
-=140 2 BRKVE 
170000 3;ODT START ADDRESS 
300 sPRIORITY 
.=POINT zRESTORE POINTER 
SCLKVEC: a 


CLKMES: eASCIZ <15><12>/LKVEC INTERRUPT = DISCONNECT LTC / 
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711 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0076 


cocece fT 
w 
se 


VMAs 


MMMM MMA MMIII UII 
eee < 


0. 8546 

0 8546 
0. 8165 
0 8546 
165 
165 
165 
165 

165 

165 

1654* 8546* 


me + _--_ — = es ee + 


M 6 
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54 §68199 8537 8538 8539 8540 8541 8542 85435 8544 8595 8596 


8540* 8541* 8542+ 
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CNDUQA.M11 30-OCT-82 12:11 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0077 
BASEIV 001162 8165#* 8546" 
005026 81658 
BINWRD 01411 854648 
BITw = 002000 S698 8246 8253 826482718281 829582998306 
BITO = 000001 165#@ 823 
BITOO = 000001 81658 
BITO1 = 000002 81658 
81102 = 000004 81658 | 
BITOS = 000010 81658 
BITO4 = 000020 81658 | 
BITOS = 000040 81658 | 
BITS = 000100 81658 | 
BITO7 = 000200 81654 ! 
BITO8 = 000400 81654 8546 
BITO9 = 001000 8165# 8546 
BIT] = 000002 81658 
BIT10 = 002000 B165# 8546 
BIT11 = 004000 81654 8195 8546 
BIT12 = 010000 81654 8198 
BIT13 = 020000 81654 8546 | 
BIT14 = 040000 81658 8546 | 
BIT15 = 100000 8165# 859 
BIT2 = 000004 81658 | 
BIT3 = 000010 81658 | 
BIT4 = 000020 81658 
BITS = 000040 8165# 8244 
BIT6 = 000100 81658 | 
BIT? = 000200 81654 | 
BIT8 = 000400 165# 8612 8614 8629 8631 | 
BIT9 = 001000 81654 ! 
BPTVEC= 000014 81654 | 
= gios# 8188 ©8262 «827782938305 8537-8538 853985408541 85428545 
BRKVEC= 000140 81654 
016620 85468 | 
016622 85468 
CARDET= 010000 81654 | 
012576 85468 
546K 
85468 
81 
8 
B54 
8 
& 
8 


a nn ee +e ee ee --- —_ 
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CNDUQA.M11 30-OCT-82 12:11 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0078 — 
DNAINT= 000040 S638 $1] 
sc = 100000 1654 314 
DSINTE= 000040 1654 8185 
SR = 001000 1654 
DSWR = 177570 1654 
TR «= 2 1654 8180 8416 8461 8506 8528 
T1 poSyae 81654 
DT4 12 81654 
DUADDR 01677 8165 8546 85654 
SE 017122 8165 S2a8* 8565 8566* 8567 s266° 8569 8570 8571* 8572 8573 8574* 8575 
8576* 857 8578* 8579 8580* 8581 85834 ; 
DULEV 016714 8165 85524 * 
DUPRT 0167 8165* 8552* 8553* 8554* 8555*  8556* 8557 85614 
DURIS 001740 81654  8546* 
DURIV 001 81654 8546* 
DUTIS 001744 81654  8546* 
DUTIV 001742 81654  8546* 
EIGHT = 006000 81654 8537 8538 8542 
EMTVEC= 000030 81654* 
EM1 001762 81654 
M2 002022 81654 
EM3 002043 81654 
001746 81654 
ERRCNT 001114 81654 
ERRVEC= 000004 8165#* 8546* 
017276 86194 
EVEPAR= 001400 81654 
EVPAR = B1638 
= 1654 8539 8543 8544 
FRMERR= 020000 81654 8337 
GNS = eeeete 8546 
HDXEN = 000010 81654 8189 
HILIM 013634 85464* 
00 001130 81654  8546* 
HLD1 001132 81654  8546* 
HLD2 001134 81654  8546* 
HLD3 001136 B1638 8546* 
HLD4 001140 1654  8546* 
HLDS 001142 81654  8546* 
WOLD $0120 oi eee Bic 8182 8222 8365 8417 8430 8447 8462 8469 8476 8492 8499 
* 
8507 8515 $288 8529 
HPARCS 001724 81654 8171* 8573* 
HRXCSR 001714 81654  8168*  8233*  8567* 
HRXDBU 001720 81654 8170*  8572* 
= 000011 31038 854 
HTXCSR 001730 1654 a1? * acess 8577* 
DBU 001734 81654 173*  8581* 
F 016124 8165 85464 
INIFLG 001172 81654 
INSTER= 104407 HE $2768 
INSTR = 1044 165 5464 
INSTR2 01344 8 3 
IOTVEC= 000020 1654* 
ISYMOD= 1654 g338 543 8544 
JmMRBY 00115 1654* 8291 405 
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CNDUQA M11 30-OCT-82 12:11 CROSS REFERENCE TABLE == USER SYMBOLS 
KEEPAD 001156 8165#* 8546 
KEEPIV 001164 8165#* 8546 
LASTAD 0011 o 1938 
LESS1 Bienes 8557* 8558*  8559* 85624 
F = 00001 81654 S2c8 
LIGHTS 11 81654 546% 
LIMITS 013566 85464 
LKVEC = 0001 81654 
LOBITS 01 sree" 
LOCK 0011710 81654 8546 
LOKFLG 001174 81654 
LOLI 013632 85464" 
MASK1 007324 844 
MASK ors 84554 
MASKS 0074 84714 
MCNTG 016070 85464 
MCOW 015314 85464 
MCRLF 015414 85464 
MDATA 016230 85464 
MEPASS 015463 85464 
MEXT = 010000 81654 8293 8305 
MEXTJ 016050 8165 85464 
MINT = 004000 81654 8262 8277 8537 8538 8539 8540 8541 8542 8543 8544 
MLASTD 015250 8165 85464 
MLOCK 015527 85464 
MMNEW 0161711 85464 
MMSWR 016100 85464 
MMUL T Ot 2c! $162 85464 
MPFAIL 015417 5464 
mam 015410 85464 
MR 015510 8165 85464 
MR 015344 8165 85464 
MREGAD 015171 8165 85464 
MRESET= 000400 8165# 8180 8181 8183 = 81 8185 8196 8187 8188 8189 8190 
8195 8198 8199 8200 8224 8228 = 824 ogg 8304 8312 8313 
8324 8329 8336 868337) = «8338 = 8359 = 8344 837 8385 8400 8537 
8540 8541 8542 8543 8544 
YNC 015562 8165 85464 
MTDATA= 040000 81654 82 g26¢ 8267 ©8275 8293 8298 8303 8537 8538 98539 
8542 8 8=— 854 544 8588 
MTITLE 015122 8165 85464 
MTSTPC 015514 8165 85464 
TD 001152 8165# 8546 
MVECTO 015156 8165 85464 
MWIRES 015751 8165 85464 
MWIRES 015701 3182 85464 
IRE6 015630 165 85464 
xT 001106 654 
NOPAR = 000000 654 8537 8538 8539 8540 8541 8542 8543 8544 
ODDPAR= 001000 654 
017212 ef 
ODTST = 17 a 
cE 00261 54 
OPTCLR 001151 5# 8180 §=8181 8183 = 8211 8229 8347 
T 313000 64 
OUTCRY 012570 6a 
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CNDUQA.M11 30-OCT-82 12:11 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0080 
OUTMUL 00 81654 
ouT} 007774 840 8488 8513 85354 
OUT 007520 844 84914 
OUT 007650 844 85148 
OVRRUN= 04 81654 8338 
PARAM = 104410 8165 85464 
PARAM] 013472 85464 
PARCSR 001722 81654 8171* 8537* 8538+  8539* 8540* 8541* 8542* 8543  8544* 8570+ 
PAREN = 001000 81654 
PARER = 010000 81654 8336 
PARERR 013546 85464 
PARTI 013630 85464 
PASCNT 001112 81654 8546+ 
TAB 015114 85464 
PIRQ = 177772 81654 
PIRQVE= 000240 81654 
POINT = 017570 86374 
POPRO = 012600 81654 
POP1SP= 005726 81654 
POP2SP= 022626 81654 
PRO = 000000 81654 
PR1 = 000040 81654 
PR2 = 000100 81654 
PRS = 000140 81654 
PR4 = 000200 81654 8562 
PRS = 000240 81654 8561 
PR6 = 000500 81654 8168 8170 8171 8172 8173 
PR? = 900340 31998 
PS = 177776 1654 
PSW = 177776 81654 
PUS 010046 81654 
PUSH1S= 005746 81654 
PUSH2S= 024646 81654 
PWRVEC= 81654 
RDSW Ss) 85464 
CACT= 004 81654 8313 8537 =—«_: 8538 8539 8540 8541 8542 
REPLAY 012474 85464 
STAR 015 85464 
RESTRT 012654 85464 
SVEC= 81654 
RESOS = 104412 85464 
RET 001 8165#* 8546 
RI = 04 31628 
RINTEN= 000100 1654 8186 
ROT 001170 sigaee 8546+ 
RPOKE 017124 8539 540 = 8541 854 85435 ~~ 8544 85884 8598 
RTS = 21938 181 8429 = 846 849. 8521 
RUNA = 6764 676 5865 60 6420 
RUNB = tteeee J 5704 5874 6013 $66 
RUNC = tteeee J 3/¢? a5] 60 ° 64 : 
= eetene 5754 5891 60 644 
= eeteee 5779 5901 6034 645 
F = seetee YJ 5804 5911 6041 646 
AXCSR boi7i5 Bigse 8168 818 181 18 184 818 18 187 8205 209 = s_(« 8231 232 
* * & * * ® * * * & 
B252 8238+ 239 : 513 Bsi2 Bya3e 308 B26 8399" B10 8411 Bcige 
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CNDUQA.M11 —- 30-OCT-82 12:11 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0081 
8418 842384294 B45] BLSG  BaUGe BUKB 8454 BUG Ie BUGS | BAGBY 84708475 
8477 8482 8491+ 8495 8498+ 8500 8506+ 8508. B514e 8516 «Bei 8525 B5eBe 
8530, 8537+ 8558+ 8959" B940e  B54T+ ©8542" 8945s 8544s «8546 89658 
RXDBUF 001716 8165# 8170 8330 8332 8336 8337 8338 8339 8386 8387 8539 8540 8541 
8542 8543 8544 8569 
RXDONE= 000200 8165# 8312 
RXERR = 100000 8165# 8339 
SAVIT 014342 85468 
001126 8165# 8546s 
SAVSP 001116 B165#@ —8546* 
104411 85468 
SCOP1 = 104405 85468 
= 000020 8165# 8190 
EREC 001150 8165# 8444 
SETFLG= 104414 8165 8546" 
VEN = 004 8165#@ 8541 
SEXMIT 001147 B165# 8442 
SHIFT 0011 8165#@ 8539" 8540* 8541" 8542" 8543" 8544" 8597% 
IX _= 002 8165# 8540 
SPACNT= 014107 85464" 
SRD = 00 81658 
STACK = 001100 81658 8546 
STD = 00001 81654 8183 8446 8475 8491 8514 
LG 8165#« 
STKLMT= 177776 81658 
STPSYN= 000400 8165# 8187 
vos 0136 85468 
SWR 001440 B165a* 8546 
SWREG 000176 1654 8546 
SWREGL 013010 85468 
SwO. = 000001 81658 
SwOO = 000001 81654 
SwO1 = 000002 81654 
sw0z = 000004 81658 
SwO3 = 000010 81658 
Sw04 = 000020 81658 
SwOS = 000040 81654 
Sw06 = 000100 81654 
Sw07 = 000200 81658 
SWO8 = 000400 81654 
Sw09 = 001000 8165# 8546 
Sui = 000002 81658 
SW10 = 002000 81658 
Sw11 = 004000 81658 
Swi2 = 010000 81658 
Sw13 = 020000 1654 
Sw14 = 040000 81658 
Sw15 = 100000 81654 
sug = 000004 8165# 
SWS = 000010 81654 
Sw4 = 000020 81658 
Sw5 = 000040 81658 
Sue = 000100 1658 
Sw? = 000200 1654 
SWB = 000400 81658 
Sw9 = 001000 81654 
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$339 8540 8541 8542 
8539 8540 8541 8542 
81846 8537 8538 8539 38540 8541 8542 8543 


8170 =. 8171 8172 8173 8634# 
81684 8546 


8544 


SEQ 0082 


7 
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TSTS57 011342 85424 
TST6 003724 817 
ST60 011650 854 
TST61 pi e078 85444 
S17 003740 81804 
TTST 016310 85468 
TXCSR 001726 81654 8172* 8180* 8181* 8183+ 8184* 8185* 8186* 8187+ 8188+  8189*  8190*  8191* 
8192* 8195* aires 8199*  8200* 8206* 8210 8224% 8228%  8243* 824 8251* 8252 
8262+ 8264 $ec° ee 8275* ite 8277* 8281 a6370 8295 8298* 8299 8303* 
8304* 8305* 830 8 Ts 8313* 8314% 83192 8320 8324+ 8329% 8336 8337* 8338 
8339* 8344% 8372*  83735* 8374 8375 8385*  8400* 8537 8538 8539 8540"  8541* 
8542* 8543* 85442 8575+ 8588 85942 8595  8596* ; 
TXDBUF 001732 81654 8173* 8177 8579* 
= 0002 81654 8320 
TXINTE= 0001 81654 8192 
YPE = 104401 8165 85464 8637 
TYPOC = 104402 85464 
TYPON = 1044 85464 
TYPOS = 104403 85464 
USER = 81654 
VOID = 81654 
WRDCNT 014104 85464" 
RO 012406 85464 
SAPTHD 002136 81654 
SASTAT= teeeee 7023 
SATYC 000024 70234 
SATY1 000000 70234 
SATY3 000006 At 7 854 
SATY4 000016 7 854 
SAUTOB 001434 81654 
SBASE 001602 81654 
SBDADR 001422 81654 
SBDDAT 001426 81654 
LL 001516 81654 8546 
$COW1 001606 81654 
$CDW2 001610 81654 
SCHARC 013320 85464" 
SCKSWR= eteeee 8546 
CLKVE 017370 86374 
SCMTAG 001400 81654 
$cmM1 = 000006 81654 
$CM2 = 000014 81654 
$CM3 = 000006 81654 
$cm4 = 000006 81654 
$C 001554 81654 
SCRLF 001523 81654 8546 
SDDWO 001612 81654 
$DD0w1 001614 1654 
$DDW10 001636 1654 
$DDW11 001640 1654 
$DDW12 001642 81654 
$DDW15 001644 81654 
$SDDW14 001646 sio38 
$DDW15 001650 1654 
sous Bo1618 81654 
$DDW 001620 - 81654 
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11 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0084 
SODW4 001622 81654 
SdDWS 001624 81654 
sobus Bp 10¢8 81654 
SODW 0016 81654 
$O0W8 0016352 81654 
SODW9 dh Eo 81654 
SDEVCT 0015 81654 
SDEVM 001604 81654 
$E = 2 68514 
SENDAD 012644 8165 854 
SENV B01 206 7023 81654 8546 
SENVA 00154 7023 81654 8546 
SERFLG 001403 81654* 8546* 
001415 8165#* 8546+ 
SER 014160 8165 85464 
SERRPC 001416 8165#* 8546+ 
SERRTB 001652 81654 8546 
SERRTY 014400 85464 
SERTTL 001412 8165#* 8546+ 
SESCAP 001514 8165#* 8546+ 
T 001546 81654 
SETEND 001652 81654 
SFATAL 001530 7023* 81654 
SFFLG 000244 70234* 
SFILLC 001456 81654 8546 
SFILLS 001455 81654 8546 
ADR 001420 81654 
SGDDAT 001424 31624 
SGTSWR= eeeeee 546 
SHIBTS 002136 81654 
SICNT 001404 81654 8546+ 
SINTAG 001435 81654 
SITEMB 001414 81654  8546* 
SLF 001524 81654 8546 
SLFLG 000243 70234 
SLPADR 001406 8165#* 8546* 
SLPERR 001410 8165#* 8546* 
SMADR1 001560 81654 
te om | 001564 81654 
SMADRS 001570 81654 
SMADR4 001574 81654 
SMAIL. 001526 81654 8546 
SMAMS1 001556 81654 
001562 81654 
SMAMS3S 001566 81654 
SMAMS4 001572 81654 
002140 oig3s 
SMFLG st ok: a, 
SMSGAD 00154 7023* 81654 
SGLG 001544 7023* 81654 
SMSGTY 001526 7023* 8165# 
SMTYP1 001557 81654 
SMTYP2 001563 81654 
SMTYP 001267 81654 
SMTYP4 001573 81654 
SMXCNT 016624 85464 
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= 68504 85464 
SNULL 001454 81654 8546 
SNWTST= 000000 81684 81708 81714 81724 81734 8176# 81804 81814 81834 1844 81854 e180 81874 
81884 81894 81904 81914 8192% 81958 81984 81994 82004 2044 82244 82274 82614 
82884 83124 83134 83146 83184 83248 83284 83364 83374 83384 83594 8342# 83714 
83844 83984 85374 85384 8539 85408 85414 85424 85434 8544 
SOCNT 014756 85464* 
014760 85464* 
SOVER 016604 85464 
ASS 1534 81654* 8546* 
SPASTM 002144 81654 
ON 4762 8165 85464 
S$ 001522 81654 8546 
SROCHR= eeeeee 8546 
SRODEC= eeeeee 8546 
SROLIN= *eeeee 8546 
SRDOOCT= eeeeee 8546 
GAD 001460 81654 
EGO 001462 81654  8546* 
SREG1 001464 81654 8546* 
Ge 001466 81654  8546* 
SREG 001470 81654  8546* 
G4 001472 81654 8546* 
SREGS 001474 81654  8546* 
CA = eeeere U 8546 
SSAVRE= seeeee 8546 
COPE 016272 8165 85464 
SSETUP= 17 31938 8546 
SSTUP = 1 77 1654 
SSVLAD 016550 85464 
SSVPC = 0021 81654 
= 177400 65104 8165 8168 8170 8171 8172 8173 8176 8180 8181 8183 8184 8185 
8186 8187 8188 8189 8190 8191 8192 8195 8198 8199 8200 8204 8224 
8227 8261 8288 8312 8313 8314 8318 8324 8328 8336 8337 8338 8339 
8342 8371 8384 8398 8537 8538 8539 8540 8541 8542 8543 8544 8546 
SSWREG 001550 81654 
SWRMK= 000000 8546 
STESTN 001532 81654  8546* 
STIMES 001512 8165#* 8546* 
TKB 001446 81654 546 
STKS 001444 81654 8546 
TMPO 001476 81654 
STMP1 001500 Hod 8539* 8540" 8541* 8542+  8543*  8544% 8590* 8602 8612* 8614" 8619 8629" 
STmMP2 001502 81654 8589* 8591* 8592% 8593+ 8594 8602* 8606"  8619*  8623* 
STMPS 001504 81654 8603*  8607*  8610*  8620*  8624*  8627* 
STMP4 001506 81654 
sTm™PS 001510 sle38 
S™N = 000062 2624 81684 81708 81714 oiree 81734 81764 81804 81814 81834 1844 8185¢ 8 
81874 1884 81894 thd 1914 $1? # 81954 81984 osee Ht 044 82248 82278 
8 ole 2884 saege 3134 83144 31 secce 83284 3364 83374 384 83394 3428 
83714 83844 3984 85374 8538# 85394 5404 85414 85424 85434 5444 
00145 81654 546% 
STPFLG 00145 81654 546 
001450 81654 546 
STRAP 016626 8165 5464 
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CNDUQA.M11 30-OCT-82 12:1 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0086 
STRAP2 016650 85464 
STRP_ = 000015 8546" 
STRPAD 01 85464 
STSTM 00214 81654 
STSTNM 001402 8165#* 8546* 
YPBN= teteee 8546 
STYPDS= seeeee o3se 
YPE 013042 702 85464 
STYPEC 013254 85464 
STYPEX 0133522 85464 
STYPOC 0145 85464 
Y 014574 85464 
STYPOS 014534 85464 
SUNIT 001540 81654 
SUNITM Ope 1s8 81654 
$US 00155 81654 
SVECT1 001576 81654 
SVECT2 001600 81654 
SXTSTR 016354 85464 
SOFILL 014757 85464 
S4OCAT= eeeeee YJ 854 
° = 017442 702 81654 8168 8170 8171 8172 8173 8178 8180 8181 8182 8183 8184 
8185 81 8187 8188 8189 8190 8191 3196 8195 8198 8199 82 8216 
seco 822 8224 8236 8241 8249 8255 826 agie 8282 Be28 8300 8307 
8312 831 8314 8321 8324 8334 8336 8337 §=«. 833 8339 835 8360 8365 
8378 8390 8406 8414 8417 8421 8426 8430 8434 8439 8447 8452 8458 
8462 8466 8469 8473 8476 8480 8485 8492 8496 499 8504 8507 8§=8511 
$3}? $2)? $366 8526 8529 8535 8537 8538 8539 8540 8541 8542 8543 
544 5464 86574 
-BEGIN 003310 81654 8546 
-CONVR 013734 85464 
-EOP 012324 85464 
-INSTE 013432 85464 
eINSTR 013324 85464 
eINST1 013344 85464 
MSG 013346 85464 
-PARAM 013442 85464 
-PFAIL 014762 8165 85464 
eRESOS 013702 85464 
~SAVOS 013642 85464 
~SCOPE 016272 85464 
-SCOP1 013020 85464 
eSETFL 014112 85464 
eSTART 002152 81654 8546 
oSASTA= seeeee YJ 7023 
-$X = 0021356 81654 
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CNDUQA.M11 30-OCT-82 12:11 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0087 
15664 81654 
15784 8165# 
81654 8168 8170 8171 872 gi73 8179 8180 8181 8183 8184 8185 8186 8187 8188 
189 8190 8191 8192 819 198 199 820 8217 8221 8204 8237 Behe 8250 8256 
8266 Q 8283 829 8301 8308 8518 831 8314 8322 8324 8335 8336 8337 8338 
8339 8354 8361 8379 8391 841 B42 8427 8435 8440 8453 8459 8467 8474 8481 
8486 ser 8505 8512 8520 8527 8534 8537 8538 539 8540 8541 8542 8543 8544 
13128 8165# 
1771# 81654 
44848 81654 
1626# 81654 8168 8170 8171 8172 8173 8176 8180 8181 8183 8184 98185 8187 
8188 8189 8190 8191 8192 8195 8198 8199 8200 8204 8224 8227 8261 8288 8312 
8313 8316 8318 #8324 8328 8336 8337 8338 8339 8342 8371 8384 8398 37s: 8538 
8539 8540 8541 8542 8543 8544 
21534 7023 81654 
8129" 8546 
72634 8165 
21454 7023 81654 
000" 
54634 6509% 81654 
74586 8937 85 8539 8540 8541 8542 8543 8544 
8165# 8168 8170 8171 8172 #48173 8176 8180 8181 8183 8184 8185 8186 8187 8188 
8189 8190 8191 8192 8195 8198 8199 8200 8204 8224 8227 8261 8288 #8312 8313 
8314 8318 8326 8328 8336 8337 8338 8339 8342 8371 £8384 8398 8537 8538 98539 
8540 8541 8542 8543 8544 8546 
68414 8946 
1279# 81654 
65084 85464 
13374 81654 
17334 §©8165# 
13174 81654 
1485#@ 7023 8165 8168 8170 8171 8172 8173 8176 8180 8181 8183 8184 8185 8186 
8187 8188 8189 8190 8191 8192 8195 8198 8199 8200 8204 8224 8227 8261 8288 
8312 8313 8314 8318 8326 8328 8336 8337 8338 8339 8342 8371 8384 8398 8537 
8538 8539 8540 8541 8542 8543 8544 8546 
14534 81654 
85464 
7470# 
20884 81654 
20584 81654 
18264 81654 
20254 81654 
19784 81654 
19414 81654 8546 
18944 81654 
67328 8165 
7137# 8546 
80154 8182 8222 8365 8417 8430 8447 8462 8469 8476 8492 8499 8507 8515 8522 
66014 8165 
69774 8546 
67474 816 
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CNDUQA.M11 30-OCT-82 12:11 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0088 
SCONVR 7148% 8546 

NA 78484 

oP 68954 854 


044 8312 8313 8314 8324 8336 8337 8338 8339 
SMRRW 4 4e ah 4 8181 8183 8184 8185 8186 8187 8188 8189 8190 8191 8192 8195 8198 
74288 8224 
SG 71114 8546 
SNEED 81174 8546 
SPARAM 70544 8546 
seralt ey? 8546 
SPOKER 7573# 8539 8540 8541 8542 8543 8544 
SRCNET 80274 
SRECAC e307" S37? 8540 8541 8542 
SRESET 7389 8180 8181 8183 8184 8185 8186 8187 8188 8189 8190 8191 8192 8195 8198 
8199 8200 8224 8228 8243 8276 8304 8312 8313 8314 8319 8324 8329 8336 8337 
8338 8339 8344 8373 8385 8400 8537 8538 8539 8540 8541 8542 8543 8544 
SRXACT 74834 8537 8538 
SCOPE 4 g2%6 
SCOP1 0128 546 
SSETFL 8546 
SSETVE 6612# 8165 
SSTART 8165 
SSTRIP 78174 
SYMBO 8165 
SSYNCR 75798 8539 8540 8541 8542 8543 8544 
STRPAR 7899# 
STSTNO 68534 8168 8170 8171 8172 = 8173 8176 8180 98181 8183 8184 8185 8186 8187 8188 
8189 8190 8191 8192 = 8195 8198 8199 8200 8204 8224 8227 =—s-_ 8261 8288 8312 8313 
8314 8318 8324 8328 §=68336)=—s «8337 Ss 8338 = 8339) 8342s 8571 8384 8398 8537 8538 8539 
8540 8541 8542 8545 = 8544 
IBuU 73724 8168 8170 8 8171 8172 =. 8173 
SVARIA 66284 8165 
DF 77154 
DO 76654 8543 8544 
DP 77434 
SSCMRE 81654 
SSCMTM 81654 
SSESCA 17114 81654 
SSNEWT 16624 81654 8168 8170 # 8171 8172 8173 8176 8180 8181 8183 8184 8185 8186 8187 
8188 8189 8190 8191 8192 8195 8198 8199 8200 8204 8224 TH 8261 8288 831 
8315 3 3=— 8314 8318 8324 8328 8336 8337 8338 8339 8342 83571 8384 8398 8537 8685 
8539 § 8540 8541 8542 8545 8544 
SSSET 85464 
SSSETM 81654 
17464 
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- INIT 56584 81654 8637 
~SETUP 1213# 65074 8165 
 SWRH 1044 

-SACT1 50644 8165 
° B 5109% 65094 81654 
° H 53708 65094 8165 
oSAPTY §=5547# 7023 
° A 54178 

-SCATC 9324 65074 


SEOP 
-SERRO 2700 65084 8546 
Ty! 28964 6508 8546 


$ 

-$SCOP e3208 65084 8546 
$SU 

-STRAP 40734 6508# 8546 


094 
-STYPE 29854 65074 8546 
-STYPO 31124 65084 8546 
- $40 9724 


- ABS. 017442 000 


ERRORS DETECTED: 0 


Sane pees wt tg TOC=CNMAC2.SML,CNDUQ3.M11, CNDUQ4.M11,CNDUQA.M11 
RUN-TIME: 18 18 1 SECONDS 
RUN-TIME RATIO: 121/38=3.1 
CORE USED: 43K (86 PAGES) 





SEQ 0089 


